cccccccccccc 


XXX 


xxx 


QQQQQQQQQ 


AAAAAA AAA 


FFFFFFFFFFFFFFF 


DDDDDDDDDDDD 




cccccccccccc 


XXX 


xxx 


QQQQQQQQQ 


A AAAAAAAA 


FFFFFFFFFFFFFFF 


DDDDDDODDDDD 


cccccccccccc 


XXX 


xxx 


QQQQQQQQQ 


AAAAAA AAA 


FFFFFFFFFFFFFFF 


DDDDDDDDDDDD 


ccc 


XXX 


xxx 


QQQ 




000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 




000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 




000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 




000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 




000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 




000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 




QQQ 




000 


AAA 


AAA 


FFFFFFFFFFFF 


DDD 


DDD 


ccc 


XXX 




QQQ 




000 


AAA 


AAA 


FFFFFFFFFFFF 


DDD 


DDD 


ccc 


XXX 




QQQ 




000 


AAA 


AAA 


FFFFFFFFFFFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 


000 


000 


AAAAAAAAAAAAAAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 


000 


000 


AAAAAAAAAAAAAAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 


ooo 


000 


AAAAAAAAAAAAAAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 


000 


AAA 


AAA 


FFF 


DDD 


DDD 


ccc 


XXX 


xxx 


QQQ 


000 


AAA 


AAA 


FFF 


DDD 


DDD 


CGC 


xxx 


xxx 


QQQ 


000 


AAA 


AAA 


FFF 


DDD 


DDD 


cccccccceeec 








06>Q 


AAA 


AAA 


FFF 


DDDDDDDDDDDD 


CCCCCCCCCCCC 


XXX 


xxx 


000000 


000 


AAA 


AAA 


FFF 


DDDDDDDDDDDD 


CCCCCCCCCCCC 


xxx 


xxx 


000000 


000 


AAA 


AAA 


FFF 


DDDDDDDDDDDD 



MMM 


MMM 


EEEEEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEEEEE 


MMM 


MMM 


MMMMMM 


MMMMMM 


EEE 


MMMf 


KM MMMMMM 


MM MM MM 


MMMMMM 


EEE 


MMMMiVIM MMMMMM 


MMMMMM 


MMMMMM 


EEE 


MMMf 


1MM MMMMMM 


MMM 


MMM MMM 


EEE 


MMM 


MMM MMM 


MMM 


MMM MMM 


EEE 


MMM 


MMM MMM 


MMM 


MMM MMM 


EEE 


MMM 


MMM MMM 


MMM 


MMM 


EEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEE 


MMM 


MMM 


MMM 


MMM 


EEE 


MMM 


MMM 


MMM 


MMM 


EEE 


MMM 


MMM 


MMM 


MMM 


EEE 


MMM 


MMM 


MMM 


MMM 


EEE 


MMM 


MMM 


MMM 


MMM 


EEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEEEEE 


MMM 


MMM 


MMM 


MMM 


EEEEEEEEEEEEEEE 


MMM 


MMM 



XERSPL version 1 02 ( 22453 ) /3 ( C1 ) running on MTA065 

*START* User BROWN, DICK [400,3114] Job CXQUAA Seq. 7057 Date 03-Jan~79 13:49:37 Monitor IPC-F 603 [7C0] *START* 
/T0:ML2< -4: BROWN, D i st r i Dut i on to ML21-4, slot 132 

File: DSKM:CX0AFD,ME:v:<255>[40D,1066] Created: 02-0ct-78 15:08:00 Printed; 03-Jan-79 13:50:10 

OUEUE Switches: / PR iNT : ARROW /FILE: ASCII /COPIES:! /SPACING: 1 /LIMIT:728 /FORMS : NORMA L 



IDENTIFICATION 



PRODUCT CODE: AC-8234D-MC 

PRODUCT NAME: CXQAFDO DEC/X11 MOD PRQGMR GDE 

PRODUCT DATE: SEPTEMBER 1978 

MA INT A I NER : DEC/X11 Support Group 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AMD SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
FURNISHED TO THE PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITALS COPYRIGHT NOTICE) ONLY 
FOR USE IN SUCH SYSTEM, EXCEPT A3 MAY OTHERWISE BE 
PROVIDED IN WRITING BY DIGITAL. 

Digital Equipment Corporation assumes no 
responsibility for the use on reliability of its 
software on equipment that is not supplied by 
Digital . 



copyright (c) 
corporat i on 



1975, 1978 



di gi tal 



equipment 



Page 2 



DEC/X11 MODULE PROGRAMMERS GUIDE 



TABLE OF CONTENTS Page 



1 . 


. 


INTRODUCTION 


4 


2. 


,0 


DEC/X11 ABSTRACT 


4 


3. 


. 


DEFINITION OF DEC/X1 1 MODULE 


5 


4 , 


, 


DEC/X11 MODULE CLASSIFICATION 


5 


4. 


, 1 


BKMOD 


6 


4. 


, 2 


NBKMOD 


6 


4, 


. 3 


S BKMOD 


6 


4. 


, 4 


IOMOD 


6 


4. 


, 5 


IOMODX 


7 


4. 


. 6 


IOMODP 


7 


4. 


7 


IOMODR 


7 


5. 


. 


HEADER MACRO CALL 


8 


5. 


.01 


MODULE NAME FORMAT 


8 


5. 


. 02 


ADDR 


9 


5. 


, 03 


VECTOR 


1 1 


5. 


, 04 


BR1, BR2 


1 1 


5. 


, 05 


DVC (DVID1 ) 


12 


5. 


, 06 


RBUF-'VA 


14 


5. 


, 07 


RBUFSZ 


14 


5. 


, 08 


WBUFRQ 


14 


5. 


, 1 


MODULE STATUS WORD 


1 5 


5, 


,2 


SR1-SR4 SOFTWARE SWITCH REGISTERS 


1 5 


6. 


, 


"START" TAG 


16 


6. 


, 1 


"RESTART" TAG 


15 



Page 3 

TABLE OF CONTENTS (CONT) PAGE 



7. 





MACRO CALLS 


16 


7. 


1 


GWBUFF 


17 


7. 


2 


GETPA 


1 7 


7. 


3 


MAP22 


18 


7. 


4 


CKDATA 


20 


7. 


4.1 


CHECK DATA ERROR 


20 


7. 


5 


DATERR 


21 


7. 


6 


HRDER 


22 


7. 


7 


HRDER EXTENDED PRINTOUT 


23 


7 . 


7 . 3 


cnccn 

jU r tn 


O A 


7. 


8 


MSGN , MSGS 


24 


7. 


8.2 


MSG 


25 


7. 


9 


BREAK 


25 


7. 


1 


EXIT 


26 


7. 


1 1 


PIRQ 


26 


7. 


1 2 


ENDIT 


. 28 


7. 


1 3 


. ENDMOD 


28 


7 




OTOA 


28 


7. 


1 5 


BTOD 


29 


/ • 


1 

l o 


RAND 


30 


o 
o * 


n 




30 


8. 


1 


Module Program Organization 


30 


8. 


1 . 1 


Initialization Code 


30 


8. 


1 .2 


Device Service Code 


31 


8. 


1 .3 


Interrupt Service Code 


31 


8. 


2 


Module Code Restrictions 


31 


8. 


3 


Programming Standards 


33 


9. 





Assembling Source Program 


34 


10 


.0 


Module Code Check List 


35 


1 1 


.0 


Module Checkout Procedure 


36 



Appendix A: Summary Table of Macros 39 

Appendix B: Assembled Module Example (RKAA) 40 

Appendix C: Source Module Example (RKAA) 64 



Appendix D: 



List of Error Codes 



76 



Page 4 



1.0 INTRODUCTION 

The purpose of this document is to explain how to code a 
DEC/X11 Exerciser Module. Before attempting to write a 
DEC/X11 module, the programmer must be familiar with the 
DEC/X11 exerciser package, concepts, and have a working 
knowledge of the MACY11 Assembly Language,. 

The following discussion assumes that the programmer 
understands the programming and hardware 'specification of the 
device the module is being written for, and has constructed a 
preliminary flow chart of the program. 



2.0 DEC/X11 ABSTRACT 

DEC/X11 is the system exerciser for the PDP-1 1 f ami 1 y . It is 
designed to promote system interaction and to detect system 
failures, if any, caused by said interaction. DEC/X11 is 
designed to be used as an overall system confidence test, and 
to provide an indication of the integrity of individual 
system components. To that effect, the individual exerciser 
modules can be written to be either simple or extensive, 
depending on the exact purpose. 

The basic components of the DEC/X11 package are: 

1. DEC/X11 monitor library. 

2. DEC/X11 option/device exerciser modules. 

3. DEC/X11 confi^urator/l inker program. 

4. DEC/X11 documentation. 

The monitor library, exerciser option modules, and the 
conf i gurator/ 1 i nker program are used to generate a "Runtime 
exerciser" that is loadable by the standard ABS loader. The 
conf i gurator/ 1 inker program is used to configure and link the 
desired monitor and modules and to generate the exerciser. 
The exerciser includes only the monitor and exerciser modules 
required to exercise the system. This document does not 
concern itself with the configuration-linking process. 
Description and instructions for the conf i gurator/ 1 i nker are 
found in the DEC/X1 1 Users Manual . 

DEC/X11 software is in modular form. This format will allow 
the final exerciser to be only as large as necessary. The 
modular format also provides for easy updates and 
modifications. 
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3.0 DEFINITION OF A DEC/X11 OPTION MODULE 

A module is a program which is dedicated to one device, 
controller- or option and is interfaced to the DEC/X11 
monitor. Each module is only part of the system exerciser 
which can be made up of numerous modules. The monitor 
provides various support and utility routines which can be 
used by each module. 

The module should be written in such a way as to "Exercise" 
the device. It should not be written with a stand-alone 
diagnostic in mind. One must remember that when DEC/X1 1 is 
run, the stand-alone diagnostics have been run and. the 
devices verified. The DEC/X11 exerciser modules are written 
to find system problems, not static problems. The module 
should be designed to exercise the devices with the emphasis 
on throughput and a minimum amount of overhead. It should be 
noted that tests requiring "operator intervention" should not 
be included in the modules. 



4.0 DEC/X11 OPTION MODULE CLASSIFICATION 

Modules need software hooks so that they can communicate with 
the monitor. Different types of modules require different 
software hooks. These software - hooks are generated by the 
use of "Header Statement" macros. DEC/X11 modules have been 
categorized into six groups depending upon the type of option 
or device that is being tested. By using the various types 
of Header Statments that have been defined for each group 
(section 4.1 to 4.6), the software hooks that are required by 
the module will be generated when the module is assembled 
with the common library file called "DDXCOM. Pt 1 " . This file 
includes macro call definitions and common tags that are 
required by the different types of modules. 

NOTE 

The first thing that has to be 

determined by the programmer, is the 

type of module that is being written. 

This has to be done to determine the appropriate "Header 
Statement" required by the module so that the proper software 
hooks will be generated. [Read the "Header" definitions 
described in section 4.1 to 4.6 to determine the proper 
Header Statement required.] 

NOTE 

The "Header" statement macro must be the 
first line of code in the module. 
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4.1 BKMOD 

The BKMOD type module nuns in what is called the background 
mode. When writing BKMOD modules, the "START" and " RESTRT" 
tags must be at the same location. BKMOD 1 s are used when 
exercising non- i nter rupt devices or functions. For example, 
the CPA module tests all the basic instructions of the 
PDP-11. The format for the header macro call for a BKMOD is 
shown below: 

BKMOD <ABCD >, ADDR , VECTOR , BR 1 , BR2 , DVC t ICONST , IDNO 



4.2 NBKMOD 

The N BKMOD type module runs in non-restartab I e background 
mode,. This type of module is run first and only once. 
After it runs successfully it never runs again unless the 
exercise is aborted and started over. An example would be a 
module to check timing or parity on the system before the 
other modules were run. The format for the header macro call 
for an NBKMOD module is shown below: 

NBKMOD <ABCD >, ADDR , VECTOR , BR 1 , BR2 , DVC , ICONST , I DNQ 



4.3 SBKMOD 

The SBKMOD type module runs in special background mode. This 
type of module runs only once after every relocation of the 
exerciser. This module type runs before NBKMOD's. An 
example would be a mu 1 1 i -processor environment using a bus 
switch where the modules function would be required 'whenever 
the exerciser altered it's position in core. The format for 
the header macro is shown below: 

SBKMOD <ABCD >, ADDR t VECTOR , BR 1 t BR2 , DVC , ICONST , I DNO 



4.4 IOMOD 

The IOMOD type module operates in an input/output Mode. 
These modules are interrupt driven and are capable of 
input/output operation. They are generally associated with 
buffer driven devices, ie: devices that do not do NPR's and 
do not have "word count" registers. Examples are: the TA-1 1 
cassette, the floppy disk, papertape reader/punch, and line 
printers. The format for the header macro call for a IOMOD 
module is shown below: 



IOMOD <ABCD > , ADDR f VECTOR , BR1 ,BR2, DVC t ICONST , IDNO 
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4.5 IOMODX 

The IOMODX type module is an extended IQMOD. It is used for 
NPR devices and provides added capabilities not required by 
IOMOD's. Some of these added capabilities include; use of 
the monitor supplied write buffer, ability to change the size 
of the read and write buffers, access to the monitor's CHECK 
DATA utility, and conversion routines to get 18-bit addresses 
from 16-bit addresses and, on certain cpu's, 22-bit addresses 
from 18-bit addresses. An example of this type of module 
would be the RK-11 disk module. The format for the header 
macro call for an IOMODX is as follows: 

IOMODX <ABCD >, ADDR , VECTOR , BR 1 , BR2 , DVC , I CONST , IDNO , RBUFVA , RB 
UFSZ , WBUFRQ 



4.6 IOMODP 

The IOMODP type module is a partially relocatable IOMODX. 
This means that the module, because of hardware restrictions, 
must be relocated only on certain fixed boundaries such as 
32K. Please consult with the DEC/X11 group if this type of 
module is necessary. The format for the header macro call 
for the IOMODP is as follows: 

IOMODP <ABCD >, ADDR , VECTOR , BR 1 t BR2 , DVC , ICONST , I DNO , RBUFVA , RB 
UFSZ , WBUFRQ 



4.7 IOMODR 

The IOMODR type module is a restricted IOMOD which can not be 
relocated at all because of hardware restrictions. This type 
of module will only be permitted to run when the exerciser is 
in the lowest memory bank (relocated to 0). The Unibus 
tester module (BTB) is an example of this. Please consult 
the DEC/X11 group if this type of module is necessary. The 
format for the header macro call is as follows: 

IOMODR <ABCD >, ADDR , VECTOR , BR 1 t BR2 , DVC , ICONST , IDNO 
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5.0 HEADER MACRO CALL 

In the Header macro Statement, there is a string of arguments 
that must be defined. The type of module being defined 
determines which arguments to be used. These arguments are 
explained in detail in Sections 5.01 to 5.08. 

An example of a header statement, taken from the RKA module, 
i s shown be 1 ow . 

I0M0DX <R KA A >, 177400, 220, 5, 0, 0, 512., 5 r BUFIN, 256., 
1024. 

NAME <ABCD > ADDR VECTOR BR1 BR2 DVC ICONST IDN0 RBUFVA 
RBUFSZ WBUFRQ 

2b i;.f;.J 

The code generated, from this header call is shown on page 
42. 



5.01 Module Name Format 

The format for naming the module in the title statement is as 
foil ows : 

<ABCD > 

The argument consists of five characters within angle 
brackets . 

The last character must be left blank and is filled by the 
conf i gurator/ 1 i nker at configuration time to identify 
mu 1 1 i p 1 e 

copies of the same module. The first four characters which 
must be 

supplied will follow the following convention: 

AB Any two alpha mneumonic characters that 

identify the hardware and thus the module. An 
example would be a "RP" 
for the RP-11 disk. 

C Alpha character to distinguish between two or 

more 

different modules for the same generic device. 
The sequence A, 

B, C, etc. must be used for each additional 
module. The RPB module for the RP04 would be an 
example 

of the second RP module that was written. 

D Alpha character used to specify the module 

rev i s i on . 

The sequence A, B, C, etc. must be used for each 
new 
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revision. RPBC would show that this would be the 
third 

version of this program. 



(SPACE) Numeric character used at configuration time 



to distinguish between multiple copies of the 
same module. This 

space is filled by the conf i gurator/ 1 i nker . You 
will 

always leave this as a space character when you 
code your source program. 



This specifies the unibus address of the device or option. 
If more than one address is assigned, "ADDR" should specify 
the first address in the group of contiguous addresses. When 
the 

header macro is executed, "ADDR" will be placed in word 6 
[ADDR:] of the module interface [shown on page 42]. 

If the address will not be known until configuration time, 
"ADDR" should be specified as a 1 . If the operator 
did not follow directions and set up the address, this will 
generate an 

odd address system error. This will reduce the possibility 
of 

chasing false errors. 

"ADDR" must always be equal to zero for a BKMOD. 

This word "ADDR:" must be used to derive any addresses the 
module needs to access the device registers. Two examples 
are shown below: 



5.02 



ADDR address of Device or Option 



5.02.1 



Exampl e # 1 : 



MOV 



ADDR , R5 



; GET 1ST ADDRESS 



MOV 
MOV 
MOV 
MOV 



#10000, 2(R5) 
#1024. ,4(R5) 
WBUFPA, 6(R5) 
CMD,2(R5) 



;SET POWER CLEAR BIT IN COMMAND REG. 

; LOAD BYTE COUNT REG. 

; LOAD MEMORY ADDRESS REG. 

; LOAD THE COMMAND REG . 



5.02.2 



Example #2: 



MOV 
MOV 
TST 
MOV 



ADDR , R5 
R5.MTS 
(R5) + 
R5,MTC 



; GET 1ST ADDRESS 

;SET UP STATUS REG. POINTER 

; MAKE CERTAIN REG. CAN BE ACCESSED 

;SET UP COMMAND REG. POINTER 
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TST 
MOV 
TST 
MOV 



(R5) + 
R5.MTBC 
(R5) + 
R5, MTMA 



MAKE CERTAIN REG. CAN BE ACCESSED 
SET UP BYTE COUNT REG. POINTER 
MAKE CERTAIN REG. CAN BE ACCESSED 
SET UP ADDRESS REG. POINTER 



MOV #100, ©MTC ;SET POWER CLEAR BIT IN COMMAND REG. 

MOV WBUFPA,@MTMA ; LOAD MEMORY ADDRESS REG. 
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The first technique requires less storage and is more 
efficient to use but requires that you save and restore R5 if 
you need to access registers in the interrupt service 
routine. This method is not recommended and should be 
avoided. The second technique is less efficient but 
eliminates the need to save and restore the registers in the 
interrupt service routine. It also makes the program easier 
to follow and maintain. This is the recommended method. 



5.03 VECTOR Vector address of device or option 

This argument specifies the vector address assigned to the 
device or option. If more than one vector is assigned, 
"VECTOR" will specify the first vector address in the group. 
When the header macro is executed, "VECTOR" will be placed in 
word 10 [VECTOR:] of the module interface [shown on page 42]. 

"VECTOR" must always be equal to zero for a BKMQD. 

If no vector is assigned or if it will not be known until 
configuration time, "VECTOR" should be specified as a 1. If 
the operator did not follow directions and set up the vector, 
this will generate an odd address system error. This 
minimizes the possibility of this module destroying some 
other module's vector. "VECTOR" must be used in conjunction 
with BR1 and BR2 to set up the interrupt vectors. 



5.04 BR1 , BR2 Bus priority levels 

" BR 1 " , and "BR2 must always be equal to zero for a BKMOD . 

These arguments specify the BR priority levels assigned to 
interrupt driven devices. Normally only BR1 will be used. 
BR2 will only have to be specified if the device has the 
capability of interrupting at two different levels. When the 
macro is executed the values specified are encoded and placed 
in word 12 of the module's interface [shown on page 42]. 
" BR 1 " is put into the low byte, and "BR2" into the high byte. 
For this reason, always use a "FvlOVB" instruction to load BR1 
and BR2. The following example shows a use of "VECTOR" and 
" BR 1 , BR2" . 



5.04.1 Example: 



MOV VECTOR, R0 

MOV #MT INTR , ( R0 ) + 

MOVB BR1 , (R0) + 

TSTB (R0)+ 



; GET VECTOR ADDRESS 

;P0INT VECTOR TO INTERRUPT SERVICE. 

;SET BR 1 LEVEL 

;SET BACK TO EVEN ADDRESS 
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5.05 DVC Device Count 

DVC is specified at configuration time- This indicates the 
number of active devices to be exercised by the module. 
"DVC" contains the octal number of devices. It is converted 
in DVID1 so each bit represents one device. If the value of 
DVC is defined as a 0, DVID1 will get assembled to equal a 1. 
This means the module will try to test device 0. Up to 16 
seperate devices may be selected. If, at configuration time, 
3 devices were to be exercised, then the number 3 would be 
entered for the device count (DVC). When the 

conf i gurator/ Li nker types out the DVC, it will now contain 

the number 7 one bit location representing each device. 

This is the number that is placed in DVID1 , location 14 
[shown on page 42] in the module interface. For example, if 
3 were entered for DVC, then DVID1 would be set to: 

BITO (1) = DEVICE SELECTED 
BIT1 (1) = DEVICE 1 SELECTED 
BIT2 (1) = DEVICE 2 SELECTED 

Hence 3 devices are selected and in DVID1 there is a 7. At 
run time "DVID1" can be modified to specify any combination 
of devices to be exercised. The module will use "DVID1" to 
determine which devices are to be exercised. 

The only way to exercise non-consecutive devices is to modify 
"DVID1" after configuration and just before run time by using 
the MOD command. Tne MOD command is explained in the Users 
Manua 1 . 

The location "DVID1" should not be modified by any code in 
the module. The contents of "DVID1" should be moved to a 
work location and that location can be used by the module. A 
reason for modifying the temporary location would be to 
eliminate devices with hard errors from the exercise. The 
normal configured parameter must not be changed. An example 
of the use of "DVID1" is shown below: 
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5.05.1 Example: 

Assume the module exercises 8 devices 





MOV 


DVID1 , TDVD 


SAVE SELECTION PARAMETER 




MOV 


#1 ,MSK 


SET DEVICE MASK 




MOV 


#-1 , R1 


SETUP R1 


KC1 : 


INC 


R1 


GENERATE A NUMBER 




BIT 


MSK, TDVD 


SELECT BIT SET? 




BNE 


1$ 


BR IF YES 




CMP 


#10 , R1 


DONE 8 UNITS? 




BEQ 


OUT 


BR IF YES 


1$: 


M0VB 


R1 , CMD+1 


SELECT UNIT 



5.05.2 



5.05.3 



CODE TO EXERCISE SELECTED UNIT 



ASL 

BR 



MSK 
KC1 



;SHIFT SELECT BIT 
;GO TEST NEXT UNIT 



If, in the exercise routine, the module determines that the 
selected device was off line, the module could drop the 
device from the exercise. 



1$: 

ICONST 



BIC 
BNE 
END 
con t i nue 



MSK, TDVD ; DESELECT BAD DEVICE 
1$ ; BR IF ANY SELECT BITS SET 

;DROP THE MODULE 



Iteration Constant 



The Iteration Constant is the number of 
should run to be considered end of pass, 
be adjusted as follows: 



times the module 
This number should 



invisible IQMOD 



(eg: . floppy 
Line Printer) 



The program run time for an 
disk) should be 30-40 sec. 

The program run time for a visible IOMOD (e.g. 
should be one minute. 

The program run time for a BKMOD (e.g. CP Test) should be 20 
sec • 

ICONST is moved to location ICONT in the header during 
assembly. This location is used by the "ENDIT" macro call 
described in Section 7.12. 



IDNO 



Module Identification Number 



Each module has a unique I.D. number for use by APT. During 
assembly this number is moved to location IDNUM in the 
header. Consult the DECX Group for the appropriate number. 



5.06 



RBUFVA 



Virtual Address of the Read Buffer 
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This argument, passed with the IOMODX and IOMODP calls, is 
the starting location for the read buffer located within the 
module. The read buffer area contains the data that was read 
from the device. The most commonly used tag to denote the 
starting location of this buffer is "BUFIN". This read 
buffer should normally be placed towards the end of the 
module. The monitor uses this tag as a reference point, when 
the check data [CKDATA] and get physical address [ GET PA ] 
macros are called. 



5.07 RBUFSZ Read Buffer Size 

This location, passed with the IOMODX and IOMQDP calls, 
contains the actual size (or length) of the read buffer in 
words. Presently, read buffers are suggested to be a maximum 
of 256 words. The monitor uses this location as an 
indication of the number of words to be checked in a Check 
Data [CKDATA] call . 

This value is assumed to be in Octal; therefore, a period 
must follow any number representing the base 10 system. 



5.08 WBUFRQ Write Buffer Size Requested 

This location, passed with the IOMODX and IQMODP calls, 
contains the desired write buffer transfer size in words. If 
the write buffer request is larger than the available write 
buffer, "THE LARGEST SIZE AVAILABLE" is stored in header 
location "WBUFSZ" [shown on page 42]. For this reason the 
module should always reference the "WBUFSZ" location for 
transfer size and not WBUFRQ. 

This value is assumed to be in Octal, therefore, a period 
must follow any number representing the base 10 system. The 
standard default size is 1024. words (1K). 
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5.1 MODULE STATUS WORD 

This status word is located at location 26 in the module 
header interface. When the module program is assembled, each 
macro generates different active bits in the status word of 
that module. The status word also contains informative bits 
of the module's condition. 

The module status bits have the following meanings. 



BIT 14 


(1 ) 


Modu l e 


se 1 ected 


BIT 14 


( o ) 


Modu 1 e 


de se 1 ect ed 


BIT 1 3 


i 1 \ 

( i ; 


Modu 1 e 


had been running but was 






dropped 


I by the monitor 


BIT 13 


(0) 


Modu 1 e 


was not dropped 


BIT 1 1 


d ) 


Modu 1 e 


is active 


BIT 1 1 


(0) 


Modu 1 e 


is inactive 


IOMOD 




1 00000 




IOMODR 




1 12000 




IOM0DP 




1 02000 




IOMGDX 




1 10000 




BKMOD 




000020 




NBKMOD 




001 000 




SBKMOD 




000000 





The right half of the status word indicates the processor 
status when running the module. In the BKMOD, bit 4 is set. 
Note: BIT 11 (active bit) will always be zero for BKMODS 
when it's status word is outputted by a Keyboard command such 
as SUM, MAP OR EXAM. 



5.2 SR1 , SR2 , SR3 , SR4 SOFTWARE SWITCH REGISTERS 

The software switch registers are located at locations 16-24 
in each module header interface. These words can be used by 
the module program as general purpose program switches. 
These words can be used to define or specify a unique device 
option or to point to a specific routine in the module. 

These words "MUST NOT" be modified by the software. Any 
SR1-SR4 options must be specified by the operator before the 
module is run. 

All SR1-SR4 bit definitions must be defined in the module 
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documentation. This will enable to operator to correctly 
modify "SR1-SR4" to meet specific needs. 



5.2.1 Example: 

Consider the RK1 1 (Appendix B Page 51) module. 

SR1 defined: BIT 2 RESET (0) TYPEOUT DATA LATE ERRORS. 

BIT 2 SET (1) DO NOT TYPEOUT DATA LATE ERRORS 

BIT #BIT2,SR1 ;TYPE0UT ERROR? 
BNE 6$ ;N0 
MSGN$ , DLTERR f BEGIN 

In this example, SR1 is used to decide which direction the 
module will take. One way it will type out the error message 
and the other way it will omit the error message. 



6.0 START TAG 

The tag "START" must be used to identify the first executable 
instruction in the module. 

When the module is assembled, the address of "START" is 
inserted into the "INIT" word in the module "Header" [shown 
on page 42] and the monitor uses the contents of this 
location as the starting address of the module. 



6.1 RESTART TAG - RESTRT 

This tag must be used to identify the restart location in the 
module. The monitor will return to this location after 
completing the final ENDIT call. "RESTRT" is normally at the 
beginning of the program, just after the initialization code. 
In "BKMOD" modules, the "START" and "RESTRT" tags must be in 
the same place. 



7.0 MACRO CALLS 

DEC/X11 has many macro calls available for use in the coding 
of DEC/X11 modules. Some are necessary and must be used, 
while others simply make life easier. These macros include 
calls for determining buffer sizes, check data routines, 
monitor service routines, and different error reporting 
rout i nes . 
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7.1 GWBUFF Get Write Buffer 



This macro is used in IOMODX and IOMODP modules to get write 
buffer information from the monitor. The monitor uses the 
"write buffer" as an area to write "from" and not "into". 
Information should never be written into the write buffer for 
it could be destroying its own program. The monitor will 
size memory to determine the available core left that can be 
used for a write buffer. The monitor then compares this 
value against the size of the write buffer requested (WBUFRQ) 
in the module header. If the write buffer size requested was 
larger than the amount available, the monitor will store the 
size available in the Write Buffer Size (WBUFSZ location 142. 
on page 43) location in the header of the module. If the 
amount available was larger than the amount requested, the 
amount that was requested in the Write Buffer Request 
(WBUFRQ) would be stored in the write buffer size (WBUFSZ) 
location. 



NOTE 



For this reason it is essential that the 
module program use the "Write Buffer 
Size" (WBUFSZ) and not the "Write Buffer 
Size Requested" ( WBUFRQ ) value to obtain 
the size of the Write Buffer. 

The GWBUFF macro also places the physical starting address of 
the write buffer into the "WBUFPA" location and the extended 
addressing bits into the "WBUFEA" location. The extended 
addressing bits (16 and 17) are placed into bit positions 4 
and 5 since this is the location of the EA bits in most of 
the peripherals. The locations WBUFSZ and WBUFRQ in the 
module header must not be modified. This macro should be 
used before each new transfer cycle (eg: [GWBUFF], WRITE, 
Read, Check data, [GWBUFF], WRITE, Read, etc.). 

The "WBUFSZ" value is a positive number and often must be 

negated before being used. The RKA module in "Appendix B" 

shows a good example on how to use this macro. An example is 
also shown below: 



GWBUFF 

MOV WBUFSZ, WCNT 
NEG WCNT 
MOV WCNT,@RKWC 
MOV WBUFPA, @RKBA 
BIS WBUFEA, FUNCT 



; GET THE WRITE BUFFER INFORMATION 

GET WRITE BUFFER SIZE 

CONVERT TO A NEGATIVE NUMBER 

LOAD RK WORD COUNT REG 

LOAD RK BUS ADDRESS 

LOAD EXTENDED ADDRESSING BITS IN 

FUNCTION COMMAND LOCATION. 



The assembled appearance of GWBUFF will be "GWBUF$, BEGIN". 



7.2 GETPA ADR Get Physical Address 
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This macro is used to convert a 16-bit virtual address to an 
18-bit physical address. "ADR" is an argument which contains 
the virtual address. The monitor takes this virtual address, 
converts it to an 18-bit address, and places it in the two 
locations following the "ADR" location. These 3 locations 
are already in the header for of the " IOMODX , IQMDDR " and 
IOMODP" modules. 



NOTE 



When using any other type of module, 

make sure that that the following three 

locations are provided, and in this 
order . 



ADR: 16-bit Virtual Address 

PA: will contain 16-bit physical 

address on return 
EA : will contain extended addressing 

(16 and 17) in bit positions 4 and 

5 on return 



The call "GETPA" will normally be used to get the physical 
address of the read buffer, which the module will load into 
the device register before issuing a read command. This 
command may be used, though, by any type of module whenever a 
physical address is needed. The physical address equivalent 
of a virtual address will change only between an End Of Pass 
and restart. Thus "GETPA" calls should occur in the 
START/RESTART code only. The RK module in Appendix B uses 
this macro. Below is an example of "GETPA" macro. 

GETPA RBUFVA ; GET THE PHYSICAL ADDRESS OF THE 

; CONTENTS OF RBUFVA 
MOV RBU FPA , @RKBA ; LOAD BUFFER ADDRESS OF DEVICE 

BIS RBU FEA , FUNCT ; LOAD EXTENDED ADDRESSING BITS 

;IN FUNCTION COMMAND LOCATION 



The assembled appearance of GETPA ADR will be " GETPA$ . ADR". 



7.3 MAP22 ADR Map 22 Bit Physical Address 

This macro is used to convert an 18-bit unibus address to a 
22-bit physical address. MAP22 is used on devices capable of 
22 bit addressing, such as RH70 devices on the PDP-11/70. 
"ADR" is an argument which contains the lower 16 bits of the 
18-bit address. Location XMEM, which immediately follows 
ADR, must contain the shifted extended address bits (16 + 
17). The monitor converts this to t a 22 bit address and 
places it in the 2 locations immediately following the "XMEM" 
location. 
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NOTE 

When using this call, make sure four 
locations are provided in the module in 
the following order: 

ADR: lower 16 bits of the 18 bit 
address. 

XMEM: contains bits 16 and 17 in bit 
pos i t i ons 4 and 5 . 

PA22: will contain the lower 16 bits of 
the physical 22 bit address. 

EA22 : will contain the extended 
addressing bits (16 to 22) in bit 
positions through 4. 

The " MAP22 " call will normally be used to get the physical 
address of the read buffer, which the module will load into 
the device register before issuing a read command. Word 
"CONFIG" in the module header is loaded with the 22-bit 
addressing bit (bit 09) if the hardware and the monitor 
support 22-bit addressing. The term "ADDR22" is equated to 
bit 09 in DDXCOM, the macro file for DEC/X1 1 option modules. 

An example for this macro taken from the RPBA module is shown 



be! ow 






BIT 


0ADDR22, CONFIG 


22-BIT ADDRESSING? 


BEQ 


1$ 


NO, BRANCH 


MOV 


@RHBA , PA1 8 


YES, GET 18 BIT ADDRESS 


ASR 


XMEM 


EA BITS IN XMEM PREVIOUSLY SETUP 


ASR 


XMEM 


MOVE EA BITS 


ASR 


XMEM 


TO POSITION 4+5 


ASR 


XMEM 




MAP22 


PA 1 8 


GET 22 BIT ADDRESS 


MOV 


PA22,@RHBA 


SETUP BUS ADDRESS REGISTER 


MOV 


EA22 , (PRHBAE 


SETUP EXTENDED ADDRESS REGISTER 


; NEED 


NEXT FOUR LOCATIONS FOR MAP22 


PA1 8: 





LOWER 16 BITS OF THE 18 BIT 






UNIBUS ADDRESS 


XMEM: 





EA BITS OF THE 18 BIT ADDRESS 






IN BIT POSITIONS 4+5 


PA22: 





LOWER 16 BITS OF THE 22 BIT 






UNIBUS ADDRESS 


EA22: 





EA BITS OF THE 22 BIT UNIBUS 



; ADDRESS (BITS TO 4) 

The assembled appearance of MAP22 ADR will bit 
" MA P22$, BEGIN, ADR" . 
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7.4 CKDATA AD R , ERRET Request for monitor 1 to Check Data 

This macro requests the monitor to do a data comparison. It 
is used only in I0M0DX and I0M0DP modules. The "ADR" 
argument used with this macro must be the tag of the location 
that contains the lower 16 bit address of the data being 
compared. This location is immediately followed by a word 
containing the EA bits shifted into position 4 and 5, 
followed by a third word containing the size of the buffer. 

The CKDATA macro compares the buffer indicated in the 
argument with the write buffer. The write buffer information 
is located in the "header" starting at WBUFPA and must have 
been previously set up by the call GWBUFF. 

The " ADR" argument most commonly used with this call is 
RBUFPA. The IQMODX module has allowed room in the header for 
the locations needed. These locations in the header appear 
as f o 1 1 ows : 



RBUFPA: ; Read buffer physical address 

RBUFEA: ; Read buffer EA bits 

RBUFSZ: ;Size of the Read Buffer 

WBUFPA: ;Write buffer physical address 

WBUFEA: ;Write buffer EA bits 

WBUFRQ: ; Write buffer size requested 

WBUFSZ: ;Write buffer size available 



For example, the source macro call would be CKDATA RBUFPA and 
the assembled version will appear as: 



CKDATAS, BEGIN, RBUFPA 



The monitor will automatically handle all data error 
reporting associated with this Check Data (CKDATA) call. 

The argument ERRET (if defined) will request the monitor to 
set return PC to that location if there was a data error. If 
there are no errors, or ERRET is not defined, processing will 
continue with the next instruction following the CKDATA call. 



7.4.1 CHECK DATA ERROR 



If the monitor discovers a data error while checking the 
buffer, it will report it. The printout looks the same as 
that for a regular data error (7.5.1). In a "CKDATA" call, 
all errors in a given transfer are counted as one error in 
the module error counter. This count is not incremented 
until after the data errors have been reported. The total 
number of words in the transfer and the total number of 
errors encountered are also reported. 
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7.5 DATERR 



This call is used to report an 'in-core' data comparison 
errors. The "DATERR" call is usually never used in the 
IQMQDX or IQMODP modules. Instead, they use the " CKDAT A " 
call to request monitor checking of their data. Refer to 
section 7.4. Prior to using the "DATERR" call, the module 
must load certain words in the module interface. This is to 
enable the monitor to report address and contents information 
on the error typeout. The words that must be loaded are 
1 i sted be 1 ow : 



ACSR Address Control Status Register - Address of the 
control reg. 

SBADR Should Be Address - Address of the "Should Be" or 
correct data. 

WASADR Was Address - Address of what the data really 
"Was". 



ASB Actual data Should BE - Test data, what the data 

is supposed to be. 

AWAS Actual data Was - Actual data, what the data 
pea 1 1 y was . 



7.5.1 Example of the Data Printout 



The data printout looks as follows: 



ABCDO PC XXXXXX APC YYYYYY PASS#NNNNN . ERR#NNNNN . 

CSRA AAAAAA S/B BBBBBB WAS WWWWWW WRADR DDDDDD RDADR EEEEEE 



Where r 



ABCDO Failing Module name. 

PC XXXXXX Actual 22 bit physical address of DATER$ 

cal 1 . 

APC YYYYYY Assembled PC of DATER$ call. 

PASS#NNNNN.' Pass number during which error occurred 

( Dec i ma 1 ) 

ERR0NNNNN. Total number of errors encountered (Decimal) 

CSRA AAAAAA CSR address of failing device. 

S/B BBBBBB Data should be (Good Data) 

WAS WWWWWW Data was (Bad Data) 

WRADR DDDDDD Address of expected data 

RDADR EEEEEE Address of bad data. 
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7.6 HRDER , <COMMENT> 

This is used to request that the monitor print out an error 
message for the module on the console. This call can be used 
for all hard errors. The optional argument "COMMENT" permits 
the cause of the error to be printed out as a comment 
statement in the assembled listing. prior to coding the 
"HRDER" call, the module code must load up the following 
words in the modules interface: 

CSRA with the address of the control register 
ACSR with the contents of the control register 
ASTAT with the contents of the status register, if 
app 1 i cab 1 e . 

ERRTYP with the code for the particular error. see 
APPENDIX D for list of error codes . If not 
listed, consult the DECX group and a new code will 
be generated. 

These locations cannot be loaded with any information other 
than that indicated. The reason for loading these locations 
is that when the monitor first initializes the module., these 
locations are zeroed, and after each error, the status of 
these registers could change. After printing the error, the 
monitor transfers control back to the statement immediately 
following the "HRDER" call. 

NOTE 

If these locations do not get loaded 
prior to the 1st error call, they will 
be printed out as all zeros. 



7.6.1 



Examp 1 e : 



Assume R4 contains the CSR address and R5 contains the status 
register address: 



MOV R4,CSRA 

MOV (R4),ACSR 

MOV (R5), ASTAT 

MOV #11, ERRTYP 

HRDER, <I LLEGAL I NTERRUPT> 

BR RESTRT 



LOAD ADDRESS OF CSR 
LOAD CONTENTS OF CSR 
LOAD CONTENTS OF STATUS REG. 
ILLEGAL INTERRUPT OR DONE NOT SET 



The comma between HRDER and <comment> signifies the argument 
"ADR" is not used, see section 7.7 for "ADR " explanation. 
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7.6.2 Error Printout 

The error printout looks as follows: 

ABCDO PC XXXXXX APC YYYYYY PASS#NNNNN, HARD ERRtfNNNNN 
CSRA AAAAAA CSRC CCCCCC STATC SSSSSS ERRTYP NNNNN 

Where: 



ABCDO 
PC XXXXXX 
APC YYYYYY 
PASS^NNNNN . 

HARD ERR#NNNNN, 
CSRA AAAAAA 

CSRC CCCCCC 
STATC SSSSSS 
ERRTYP NNNNN 



Failing module name. 

Actual 22 bit physical address of error call 
Assembled pc of error call. 

Pass number during which error occurred 
( dec i ma 1 ) 

Total number of errors encountered (decimal) 
CSR address of failing device, if not 
app 1 i cab 1 e 

Contents of device CSR, if not applicable 
Contents of device status reg, if applicable 
octal code for type of error 



7.7 HDRER ADR <COMMENT> Extended Error Printout 

This call requests the monitor to print out the standard 
"HRDER" message (section 7.6); and also the contents of all 
addresses in a table specified by the argument "ADR". The 
contents of all addresses in the table are printed out until 
the terminator (177777) is encountered. After the printing 
is done, control to the module resumes at . the location 
immediately following the " HRDER" call. 



7.7.1 Example Code: 

To print out the contents of all the registers for the RK-11 
Disk, the code would look like the following: 

HRDER TABLE <DUMP THE CONTENTS OF THE RK DISK REG . > 

TABLE: 177400 ;P0INTERS TO THE RK REGISTERS 

1 77402 
1 77404 
1 77406 
1 7741 
175412 
1 77416 

177777 ; TABLE TERMINATOR 

NOTE 



Before each "HRDER" call, the locations 
CSRA, ACSR, ERRTYP and ASTAT must be 
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loaded as in 7.6. 

7.7.2 " EXTENDED " Error Printout Example 

ABC DO PC XXXXXX APC YYYYYY PASS# NNNNN. HARD ERR# NNNNN . 
CSRA AAAAAA CSRC CCCCCC STATC SSSSSS ERRTYP NNNNNN 
XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 

The first two lines of the extended error printout have the 
same meaning as the error printout in section 7.6.2. The 
third AND any add i t i ona 1 1 i nes , consist of up to eight (8) 
octal values per line. They are printed to provide 
additional information on the nature of the error. These 
octal values that are typed out should be well defined in the 
module's documentation, since only numbers are actually 
printed. If the tab!© contains device registers, the 
registers in the table should be in the same order as the 
actual device registers. 

7.7.3 SDFER ADR <COMMENT> 

This call is used for "SOFT" data errors. It is called and 
used in the same manner as "HRDER". The arguments "ADR" and 
"COMMENT" are of course optional. The standard and extended 
error printouts give SOFT ERR#NNNNN . All prior setup for 
SQFER call should be done as shown in section 7.6. In 
addition, if "ADR" is used - refer to section 7.7.1. 



7.8 



MSGN ADR 



Message Call, MSGS ADR Message Call 



These calls provide the means to print pure ASCIZ messages. 
In the ASCIZ string the apostrophe (') serves to delimit the 
message and the per-cent sign (%) is interpreted by the 
monitor as a CR/LF. ADR is the pointer to a table of 
messages. The table must terminate with a 177777 entry. The 
MSGN call produces a header line identifying the module name 
and the MSGS call does not. 



7.8.1 Example of Source Code 

MSGN SOFT 

SOFT: MES2 

177777 



; MESSAGE POINTER 
; TERMINATOR 



MES2: .ASCIZ '%SOFT ERROR% 1 

Example Code Assembled: MSGN$ T SOFT , BEGIN 
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7.8.2 MSG ADR Message Call 

This call provides the means to print pure ASCII messages 
(one message only - not a table as in MSGN). The apostrophe 
(') serves to delimit the message and the percent sign (%) is 
interpreted as a CR/LF. ADR is the address of the message. 
Since no header identifying the module is produced, the 
module name should be included somewhere in the message. 



7.8.3 Example of Source Code 
MSG TEXT 

TEXT: .ASCIZ '%RPA - TOO MANY WRITE ERRORS*' 



Example Code Assembled: MSGS , BEGIN » TEXT 



7.9 BREAK Temporarily Return to the Monitor 

This call is used to transfer control, temporarily back to 
the monitor. It allows the monitor to transfer control to 
pending requests while the current module is waiting for some 
asychronous event to occur before proceeding. When executed, 
the monitor obtains the return address of the module as the 
address immediately following the "BREAK" call. The monitor 
saves the general registers in the Module Header locations 
SVRO through SVR6, then checks the queues for pending 
requests. When all previous requests have been serviced, the 
monitor restores the registers and returns control to the 
module at the instruction immediately following the break 
call. Example follows: 

NOT E 

No timer/timeout loops, wait loops, etc. 
of any kind are permitted without a 
BREAK in the loop. 



7.9.1 



Example of a wait loop Using the BREAK call 



WAIT: MOV #177777, CLK 
1$: BREAK 



BIT 
BNE 
DEC 
BNE 
JSR 



#BIT6,@RKDS 

2$ 

CLK 

1$ 

PC, DROP 



SET UP TIMER 

RETURN TO MONITOR TO LET OTHER 

MODULES RUN 

IS THE DRIVE READY? 

YES CONTINUE 

NO, WAIT SOME MORE+TRY AGAIN 
WAIT AGAIN 

TIMES OUT, DROP THE DRIVE. 



The assembled code at 1$ will look like the following: 
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1 $ ' 

BREAKS r BEGIN ; RETURN TO MONITOR TO 

BREAKS, BEGIN ; LET THE MODULES RUN 



7.10 EXIT Exit to the Monitor - module waits for interrupt 

This call is necessary since DEC/X1 1 modules are not 
permitted to "sit and wait" for interrupts to occur. It is 
used to return control of the processor back to the monitor 
when the module is waiting for an interrupt. It is important 
to remember that some instruction prior to the "EXIT" is 
necessary that will generate a subsequent interrupt. If this 
is not done, the module will never receive control again and 
in effect, stop running. For this reason an "EXIT" call is 
never used when coding a module for a non-i nter rupt driven 
device. Another important point to remember is that the 
"EXIT" call is not a RTI and should never be used to return 
from an interrupt service routine. When the "EXIT" command 
is executed, the monitor saves the general registers in 
locations SVRO through SVR6 located in the header of the 
module [shown on page 42]. The monitor then passes control 
to the next module waiting to be serviced. The following is 
an example of the use of the EXIT call. 



7.10.1 



Examp 1 e 



MOV WB.TMWC ; LOAD BYTE COUNT REGISTER 

MOV WBU FPA , TMBA ; LOAD MEMORY ADDRESS REGISTER 

BIS WRCMD,TMCS ;SET WRITE COMMAND AND INT ENABLE 

EXIT ; RETURN TO MONITOR , 



NOTE 

If there is no system clock in the 
exercise, and an interrupt does not 
occur after an "EXIT" call is used, the 
system will hang up and all other 
modules will stop after an end of pass. 

The source code of this macro will be "EXIT". The assembled 
code will be "EXITS" . 



7.11 PIRQ ADR Do an RTI and continue at tag ADR 

This call is the DEC/X11 method used to exit an interrupt 
service routine and defer servicing at a lower priority. 
This call is placed first in the interrupt service routine 
whenever possible. This will increase the system throughput 
by defering non-critical interrupt service routines at a 
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lower priority. For instance, when the RK11 module receives 
an interrupt, it is known that none of its registers need 
immediate service or are in the process of changing. 
Therefore, a PIRQ is used and checking for errors is done at 
a lower level. On the otherhand, a communications device 
such as the DH1 1 , may have to empty a silo buffer immediately 
or data may be lost. After the necessary functions have been 
taken care of, then a PIRQ or an RTI (if more interrupts are 
expected) may be used. When PIRQ is executed, the monitor 
stores the request in a f i rst-i n/f i rst-out queue at priority 
7 and does an RTI. This turns control of the processor back 
to whatever code had control when this module interrupted. 
It is necessary to keep interrupt service routines as short 
as possible to prevent the other modules from being 
temporarily locked out and possibly getting data late or 
timing errors. 

When the PIRQ request is serviced from the monitor Queue, the 
general registers are restored from the module header 
locations SVRO through SVR6. The monitor then transfers 
control back to the module at the location specified by the 
"ADR" argument. 

NOTE 

If it is necessary to use the general 
registers in the interrupt service 
routine before using the "PIRQ" request, 
the registers must first be saved. This 
is required because these registers 
belong to the code that was being 
executed when this module interrupted. 
These registers must also be restored 
before using the "PIRQ" or an "RTI". 



7.11 .1 Examp I e : 

; INTERRUPT SERVICE ROUTINE 

NTRUPT: PIRQ 1$ ; REQUEST TO HANDLE 

INTERRUPT SERVICE 

;FOR THE RK MODULE 
1$: JSR R5, ERRORS ;G0 CHECK FOR ERRORS 

Assembled Version: 

NTRUPT: 

'pIRQ$,1$ BEGIN ;QUEUE UP TO CONTINUE AT 1$ AND RTI 
1$: JSR R5 , ERRORS 



7.12 ENDIT End of Iteration 
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This call informs the monitor that an end of iteration has 
occurred. The monitor will increment Loc. ICOUNT in the 
header and compare ICONT with ICOUNT. If equal, the monitor 
will report end of pass on the console and restart it at the 
module's " RESTRT " tag. If not equal, the monitor restarts 
the module at the location immediately following the " END IT" 
call. The module program should never modify locations ICONT 
or ICOUNT » 

NOTE 

It is important to disable interrupts 
before each ENDIT call. If an interrupt 
occurs during an ENDIT call which 
signals @nd of pass, th® who]© ©xsnciser 
may relocate and the return address from 
the interrupt will be incorrect* 



7.12.1 ENDIT Example From the RK Module 
PASS: 

The assembled code at location PASS will look like: 
PASS: 

ENDIT$ , BEGIN ; SIGNAL END OF ITERATION 

;monitor shall test end of pass 



7.13 ENDMOD Drop Module from Exercise 

This call is used to request that the monitor drop the module 
from the exercise. It would be used if the module detected a 
fatal error that would prevent the module from continuing. 
For example, the device selected for test was off line. When 
this macro is executed the monitor stops the module by 
setting bit 13 of the word "STAT" in module interface [shown 
on page 42]. This prevents the module from ever getting 
control again. It is important that you 'shut down' the 
module (eg: turn off all interrupt enables) prior to 
executing the " ENDMOD" call macro. The monitor prints the 
following message to inform the operator that the module was 
dropped: 

ABCDO DROPPED AT APC YYYYY 



7.14 OTOA NUM , ADR Octal to ASCII Conversion 

This call converts one octal number to six ASCII characters. 
This may be useful prior to a print message using "MSGN" . 
Six "BYTES" must be provided, starting at location "ADR", to 
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stone the result. "NUM" is a location containing the number to 
be converted. 



7.14.1 



Examp 1 e 



OTQA NUM, ADR 



jcall macro to convert it to ascii 



7.15 



NUM: 
ADR * 



12345 
. BLKW 3 



; number to be converted 
; reserve six bytes. 



when assembled the result would look like: 
QTOA$ f BEGIN, NUM, ADR 



and the result would be: 



ADR+O 
+ 1 
+ 2 
+3 
+4 
+ 5 

BTOD NUM, ADR 



060 
051 
062 
063 
064 
065 



Binary to Decimal Conversion 



This call converts a binary number to its decimal equivalent 
represented by 5 ASCII characters. This may be useful prior 
to a print message using "fWSGN" . Five bytes must be 
provided, starting at "ADR", to store the result. NUM is a 
location containing the number to be converted. 



7.15.1 



Examp 1 e 



BTOD NUM, ADR 



;call the macro to convert the 
; number 



ADR ' 
NUM : 



. BLKW 3 
00237 



; reserve six bytes 

; number to be converted 



When assembled the result would look like: 
BT0D$ , BEGIN , NUM , ADR 



and the results would be: 



ADR+0 060 
+ 1 060 
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+2 061 
+ 3 065 
+4 071 



7.16 RAND Call to Monitor for Random Number 

This call is used to request the monitor to generate a new 
random number. Location RANNUM in the module header will 
contain the random number. 



7.16.1 Example 



RAND ;call for random number 

MOV RANNUM, BLOCK ;To get new block 



When assembled the result would look like: 



RAND$, BEGIN 

MOV RANNUM, BLOCK ; To get new block 



8.0 MODULE CODE 

Standard PDP-11 code is used for writing DEC/X11 modules. 



8.1 MODULE PROGRAM ORGANIZATION 

In most cases, a DEC/X1 1 module can be divided into 3 
sections. They are: initialization, interrupt service, and 
device service. 



8.1.1 INITIALIZATION CODE 



This code initializes the DEC/X11 module and the devices that 
are being tested. 
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8.1.2 DEVICE SERVICE CODE 

This section is the main portion of the module and will be 
supported by subroutines. This will make the program flow 
easier to follow and easier to debug. This code will 
initialize, setup the device or options that are being tested 
and issue the I/O commands for the I/O devices. 



8.1.3 INTERRUPT SERVICE CODE 

This code is required to acknowledge the fact that an 
interrupt has been received and to provide service to that 
interrupt. It is possible using the PIRQ call to queue up a 
request to "SERVIC6" the interrupting devise at a later time, 
Tho philosophy applied, is that modules must spend a minimal 
amount of time in an interrupt service routine at a processor 
status other than 0. This must be done in order to prevent 
other devices from being locked out. See Section 7.11 for 
the proper use of the PIRQ instruction. 



8.2 MODULE CODE RESTRICTIONS 

Due to the mon i tor /modu I e relationship, the following 
restrictions are in effect for exerciser modules: 

a. Code must be capable of running on all PDP-11 family 
processors. 

b. No HALT instructions (except during debug). 

c. No WAIT instructions. 

d. No EMT cal Is. 

e. No user trap calls 

f. No processor status word modifications. 

g. I/O modules must not perform waiting loops that do 
not contain a BREAK call. 

h. If some code must be performed in the interrupt 
service routine before the PIRQ, and the general 
purpose registers must be used, the GPRS must be 
saved first and then restored before the PIRQ 
instruction. The GPRS do not have to be saved when 
executing code after the PIRQ instruction. 



The stack pointer must not be modified in order to 
exit an interrupt sequence (use PIRQ call). 
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No alteration of the module header may be made by the 
module, except, of course, use of the stack. 

Load Medium Indicator: XXDP places in location 41 a 
code which indicates which type of device was the 
load medium for the current boot. Location 40 
contains the actual device number (e.g. 
DK'O , DK1 ) , etc. ) . If your device is an XXDP supported 
load medium, your module must check these two 
locations to determine if one of the units was in 
fact the load medium. If it was„that unit cannot be 
tested and must be dropped. An example of the 
required code is in the module listing in APPENDIX A. 
For a list of XXDP supported load media, along with 
the meanings of the codes in locations 40 and 41, see 
the XXDP SUPPORT GROUP. 
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8.3 PROGRAMMING STANDARDS 

Programming standards are needed to help insure similarity, 
consistency and uniformity throughout all the DEC/X11 
modules. Using these standards will make life easier for all 
those who use DEC/X11. The standards are as follows: 

1. Documentation is the 1st part of the module. It will 
include a brief abstract, requirements (hardware and 
software), pass definitions, execution time, 
configuration requirements, device/option setups, 
operation options, non-standard printouts and any other 
information that is pertinent to the module. A flow 
chart can also be added to the documentation to show the 
general operation of the module. 

2. The header statement with its arguments should be on the 
first page following the documentation. 

3. All constants and variables will be defined on the page 
following the module header code. 

4. The tag "START" should be on the 1st line of the next 
page, indicating the first line of code. 

5. Tags should have meaningful names. 

6. All local tags will appear in numerical order beginning 
wi th 1$. 

7. Every line of code will have at least 1 line of 
meaningful comments. 

8. Messages should be placed at the end of the program. 

9. Subroutines will be designed to support a single 
f unct i on . 

10. All subroutines must contain a standard document header 
for subroutines. This will include the entry name, 
function or task of subroutine, the call that was used to 
get to the subroutine, the parameters passed (if any), 
registers used, external parameters, special error 
routines or notes. 

11. Any general purpose registers (R0-R5) to be modified in a 
subroutine, must be saved immediately upon entry to the 
subroutine and restored just before leaving. Using 
registers to pass arguments is discouraged. 

12. Nesting of subroutines is discouraged. Use of support 
subroutines. such as convert octal to ascii, and the 
like, are acceptable. 

13. Multiple entry points are discouraged and should be 
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avoided. When used, all multiple entry points must be at 
the beginning of the routine, and branched to the proper 
location from there. 

14. There will be only one exit from the routine and it will 
be the last line of executable code. 

15. Subroutines must exit with an RTS instruction. All 
returns from subroutines (including error returns and any 
others) must be to the instructions immediately following 
the JSR cal 1 . 



9.0 ASSEMBLING THE MODULE PROGRAM 

The following discussion assumes the programmer knows how to 
edit and assemble programs using one of the following 
techn i ques : 

1. On a PDP11 DOS system using "MACR011", 

2. On a PDP10 system using "MACY1 1 " 

The assembled object file will be used by the 
conf i gurator/ 1 i nker program to make it part of a system 
exerciser load module. The following steps are required: 

1. Using an appropriate editor program, a module source file 
is created, having a file extension of ".P11". 

2. Using the appropriate assembler the source program is 
assembled with the file DDXC0M.P11 [File containing the 
DEC/X11 macro call definitions and common tags]. 

3. After assembly, the following files should exist: 

a. A source file with a ".P11" extension. 

b. An object file with a ".OBJ" extension. 

c. An assembly listing file with a "..LST" (or similar) 
ex tens i on . 

4. Using the appropriate Peripheral Interchange Program: 

a. Output the listing to a line printer. 

b. Output the object file, in PDP11 absolute loader 
format, to a paper tape or mult i -media. 



The Conf i gurator/ Li nker will accept input from paper 
tape, and multi-media. The only restriction is that 
all modules to be linked must be on the same medium. 
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Having the listing of the 
appropriate input medium, 
configured, linked, and 
Configurator/Linker section 
[MAINDEC-1 i-DXQBA] for the re* 



module object file on the 
the module is ready to be 
run. Refer to the 

in the DEC/X1 1 document 
lired procedures. 



.10.0 MODULE CODE CHECK LIST 

The following check list is an aid for the programmer in 
checking the module code. It highlights many problems 
encountered while writing the first modules. 

1. Use "ADR" to set up the required address pointers. 

2. Use "VECTOR", " BR 1 " , and "BR2" to set up the vector area. 

3. Use a byte instruction to set up " BR 1 " and " BR2" . 

4. Prior to an "EXIT" call, execute some code that will 
generate a subsequent interrupt. 

5. If the module is driving a non-i nterrupt device, make 
certain that there are no "EXIT" or "PIRQ" calls. 

6. Use an RTI instruction to return from an interrupt 
service routine only when the PIRQ instruction isn't 
used. 

7. The "PIRQ" call should be used to exit an interrupt 
service routine. 

8. Make sure that there are no MONITOR calls in the 
interrupt service routines. 

9. The module must save and restore any registers that are 
needed during the interrupt service routine. 

10. Prior to the "HRDER" and "SOFER" calls, load "CSRA", 
" ACSR , " ERRTYP" , " , and "ASTAT" . 

11. Prior to the "DATERR" call, load "CSRA" , "ASB", "AWAS", 
" WASADR" , and " SBADR " . 

12. Make sure the module can recover and continue running 
after non-fatal errors. 



13. 



If a fatal error was found that makes it impossible to 
continue, use an "ENDMOD" call to drop the module. 
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14. Use an "ENDIT" call to report that the module has 
completed an iteration. 

15. Make sure there are no wait loops in the module that do 
not include the BREAK call. 

16. Take care of any pending interrupts prior to executing 
any monitor calls. 

17. Absolute memory references are prohibited. 

18. Do not use any HALT, WAIT, TRAP or EMT instructions. 

19. Use " DVID1 " properly to check for multiple devices. 

20. If the device has extended memory capability, use 
"EABITS" properly to set up the extended memory bits. 

21. Turn off interrupt enable prior to executing any monitor 
ca 1 Is. 

22. Use the tag "START" to identify the first executable 
instruction in the module code. 

23. In "BKMOD" modules,, the "START" and " RESTRT" tags must be 
in the same place. 



11.0 DEC/X11 Monitor/Module Checkout Procedure 



I. DOCUMENTATION 

a. All documentation must be complete and correct. 
Ii. CODE 

a. The code must adhere to DEC/X11 Module standards for 
uniformity and compatabi 1 i ty . 

b. The code must adhere to DEC/X11 Module coding 
standards and conventions as outlined in this guide. 
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I i i . Eva 1 uat i on 



Every attempt must be made to validate the operational 
integrity of the module. By adhering to the following 
procedure, an acceptable level of quality can be assured. 



a. RUNNING ALONE 



The module must be capable of running alone under its 
default conditions. 

1) The module must be run continuously for not less than 8 
hours and preferably 16. 

2) The module must b@ capa&l » of running man® than 1 dtvica 
(or unit, or line, or channel, etc.)* the absolute 
minimum number of 2 devices must be run. 

3) All error reports and messages must be simulated and 
checked for accuracy. 

4) All SR1-SR4 options must be used and validated as 
operat i onal . 

5) Various combinations of DVID1 must be tried and validated 
for proper operation. 

6) Various transfer sizes must be tried (where applicable). 

7) The module must be run in bipolar and/or MOS memory ( if 
avai 1 abl e ) . 

8) The module must run on all PDP-11 processors including 
the PDP-11/70 and the LSI-11. 

9) The module must be run (ie: the program relocated) in 
all banks of available memory on a system with memory 
management ( KT1 1 ) . 

10) The module must be capable of recovering without errors 
from a powerfail in different banks of memory. 



RUNNING IN A SYSTEM ENVIRONMENT 



The module must be capable of running in a system environment 
with other DEC/X11 modules. The minimum system must include: 
KT11, 28K memory, high speed disk, a communications device, 
Magtape or Dectape, and an L or P clock. 

1) The module must be run in a system environment for 
not less than 8 hours and preferably 24 hours. 

2) The largest system (the smallest being the 
minimum system noted above) available must be used. 



At least 1 disk must be included as part 
of the system. 

At least 1 clock module (KW11-L, KW11-P) 
must be configured in as part of the system. 

The module must be nun on the shared bus 
of a DT03 ( if available ). 

The module must be configured before any disk module 
to assure it does not wipe out any modules following 

The same tests required when the module 
is running alone must be performed 

with the module operating in this system environment. 
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APPENDIX A 



Summary Table of Macros 



CODED APPEARANCE 

GWBUFF ADR 
GETPA ADR 
CKDATA ADR 
EXIT 

PIRQ ADR 

HRDER ADR <CDMMENT> 

SOFER ADR <COMMENT> 

DATERR 

ENDIT 

ENDMOD 

BREAK 

MSGS ADR 

MSGN ADR 

MSG ADR 

OTQA NUM , ADR 

BTOD NUM , ADR 

RAND 



ASSEMBLED APPEARANCE 

GWBUFS , BEGIN f ADR 

GET PAS , BEGIN , ADR 

CDATAS, BEGIN, ADR 

EXITS, BEGIN 

PIROS, BEGIN, ADR 

HRDERS, BEGIN, ADR ; COMMENT 

SOFERS, BEGIN, ADR ; COMMENT 

DATERS, BEGIN 

ENDIT$, BEGIN 

ENDS, BEGIN 

BREAKS, BEGIN 
BREAKS, BEGIN 

MSGSS , BEGIN, ADR 

MSGNS, BEGIN, ADR 

MSGS, BEGIN, ADR 

OTOAS, BEGIN, NUM, ADR 

BTODS, BEGIN, NUM, ADR 

RANDS, BEGIN 
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APPENDIX B 
Assembled Module Example (RKAA) 



RKAA DEC/X11 SYSTEM EXERCISER MODULE MACY1 1 30A(1052) 20-MAR-78 15:47 PAGE 2 
RKAA.P11 13-MAR-78 00:00 

.REM 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAME: 
DATE: 

MAINTAINER: 
AUTHOR(S) : 



MAINDEC-1 1 -DXRKA-G-D 
DEC/X11 RK11 MODULE 
JANUARY 1978 
DIAGNOSTIC GROUP 
ROBERT E. UNDERWOOD 



COPYRIGHT(C) 1974 T 1978 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS . 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE MACY11 30A(1052) 20-MAR-78 15:47 PAGE 3 
RKAA.P11 13-MAR-78 00:00 



1. ABSTRACT 



RKA IS AN IOMODX THAT EXERCISES RK02 , RK03, RK04, RK05 DISK DRIVES ON AN 

RK11 CONTROLLER. IT EXERCISES THE DRIVES BY DOING WRITES, 

WRITE-CHECKS r READS, AND IN-CORE COMPARISONS. 

ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE TTY. 

2. REQUIREMENTS 



HARDWARE: 1 TO 8 RK DISK DRIVES WITH AN RK11 CONTROLLER 

STORAGE:: RKAA REQUIRES: 

1 . DECIMAL WORDS: 1043 

2. OCTAL WORDS: 02023 

3. OCTAL BYTES : 4046 



PASS DEFINITION 



ONE PASS OF THE RKA MODULE CONSISTS OF 512 CYCLES OF THE BASIC TEST 
SEQUENCE (WRITE, WRITE-CHECK, READ, DATA-CHECK). THE TEST SEQUENCE 
WRITES 1024 WORDS , WRITE-CHECKS SAME, READS THE FIRST 256 WORDS , 
AND DATA-CHECKS SAME. 

4. EXECUTION TIME 



ONE PASS OF RKA RUNNING ALONE ON A PDP-11/40 TAKES APPROXIMATELY 1 MINUTE. 
5. CONFIGURATION REQUIREMENTS 



DEFAULT PARAMETERS: 

DEVADR: 177400, VECTOR: 220, BR1 : 5, DEVCNT: 1 
REQUIRED PARAMETERS: 

NONE 

6. DEVICE/OPTION SETUP 



MAKE CERTAIN THAT ALL DRIVES ARE POWERED UP, WRITE ENABLED, AND READY 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE WIACY11 30A(1052) 2Q-MAR-78 15:47 PAGE 4 
RKAA.P11 13-MAR-78 00:00 



7. MODULE OPERATION 



TEST SEQUENCE: 



A. SETUP DEVICE REGISTER ADDRESSES AND MODULE VARIABLES 

B. RESET ALL DRIVES ON-LINE AND DROP ALL THAT ARE NOT 

C. GET A DISK ADDRESS AND A FRESH BLOCK OF DATA 

D. GET A DRIVE ADDRESS 

E. DO A WRITE — IF ERRORS , REPORT AND RETRY UP TO RETRY LIMIT 

F. DO A WRITE-CHECK — IF ERRORS , REPORT AND RETRY UP TO RETRY LIMIT 

G. DO A READ — IF ERRORS , REPORT AND RETRY UP TO RETRY LIMIT 

H. DO A DATA-CHECK — IF ERRORS , REPORT AND CONTINUE 

I. IF END OF PASS, REPORT AND GO TO C 

d. IF END OF DRIVES, GO TO C ELSE GO TO D 

OPERATION OPTIONS 



SR1 BIT SET( 1 ) : 

IF THE RETRY LIMIT IS EXCEEDED ON ANY FUNCTION, A HARD ERROR 
IS ASSUMED AND THE DRIVE IS DROPPED 

SR1 BIT CLEAR(O): 

IF THE RETRY LIMIT IS EXCEEDED, THE FUNCTION IS ABORTED AND 
THE TESTING CONTINUES 

SR1 BIT 2 SET( 1 ) : 

WILL NOT TYPE OUT DATA LATE ERRORS BUT WILL KEEP TRACK 
OF THE NUMBER OF DATA LATE ERRORS 

SR1 BIT 2 CLEAR ( ) : 

TYPE OUT DATA LATE ERRORS AND KEEP TRACK OF THE NUMBER 
OF DATA LATE ERRORS IN DLTCNT 

NON-STANDARD PRINTOUTS 



MOST PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN 
THE DEC/X11 DOCUMENT 

ERROR MESSAGES DUMP THE CONTENTS OF THE 8 RK11 REGISTERS 
IN THE FOLLOWING ORDER : 



RKDS RKER RKCS RKWC RKBA RKDA RKMR RKDB 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE MACY11 30A(1052) 20-MAR-78 15:47 PAGE 5 
RKAA..P11 13-MAR-78 00:00 

000000' IOMODX <RKA A > , 1 77400 , 220 , 5 , , , 5 1 2 . , 5 , BU F IN r 256 . , 1 024 . 

OOOOOO 1 MODULE 150000,RKAA ,1774 00, 220,5,0,0,512., 5, BU FIN, 256. f 1 024 . 

.TITLE RKAA DEC/X1 1 SYSTEM EXERCISER MODULE 
; DDXCOM VERSION 5 26-JAN-78 

. LIST BIN 

****************************************** ******* ^<*i4cn4c54c>tt5K***>+:»(<***>+:****>f< + >4< 



OOOOOO 1 




BEGIN: 










OOOOOO 1 


045522 054101 


040 MODNAM 


.ASCII 


/RKAA / 


; MODULE NAME. 


000005 1 


000 


XFLAG: 


. BYTE 


OPEN 




USED TO KEEP TRACK OF WBUFF USAGE 


000006" 


177400 


ADDR: 


177400+0 




1ST DEVICE ADDR. 


00001 1 


000220 


VECTOR 


220+0 






1ST DEVICE VECTOR. 


000012' 


240 


BR1 : 


.BYTE 


PRTY5+0 




1ST BR LEVEL. 


00001 3 1 


000 


BR2: 


. BYTE 


PRTYO+0 




2ND BR LEVEL. 


000014' 


000001 


DVID1 : 


+ 1 






DEVICE INDICATOR 1 . 


00001 6 1 


OOOOOO 


SR1 : 


OPEN 






SWITCH REGISTER 1 


000020 1 


OOOOOO 


SR2: 


OPEN 






SWITCH REGISTER 2 


000022 ' 


OOOOOO 


SR3 : 


OPEN 






SWITCH REGISTER 3 


000024' 


OOOOOO 


SR4 : 


OPEN 






SWITCH REGISTER 4 






; *************************************** * * * * **.*.* * * * * * ******************* 


000026 ' 


150000 


STAT: 


1 50000 






STATUS WORD , 


000030 ' 


000252 ' 


INIT: 


START 






MODULE START ADDR. 


000032 ' 


000252 1 


SPOINT 


MODSP 






MODULE STACK POINTER. 


000034 1 


OOOOOO 


PASCNT 









PASS COUNTER . 


000036 ' 


00 1 000 


ICONT: 


512. 






# OF ITERATIONS PER PASS=512. 


000040 ' 


OOOOOO 


ICOUNT 









LOC TO COUNT ITERATIONS 


000042 ' 


OOOOOO 


SOFCNT 









LOC TO SAVE TOTAL SOFT ERRORS 


000044' 


OOOOOO 


HRDCNT 









LOC TO SAVE TOTAL HARD ERRORS 


000046 ' 


OOOOOO 


SOFPAS 









LOC TO SAVE SOFT ERRORS PER PASS 


000050 ' 


OOOOOO 


HRDPAS 









LOC TO SAVE HARD ERRORS PER PASS 


000052 1 


OOOOOO 


SYSCNT 









# OF SYS ERRORS ACCUMULATED 


000054 ' 


OOOOOO 


RANNUM 









HOLDS RANDOM * WHEN RAND MACRO IS CALLED 


000056' 


OOOOOO 


RES 1 : 









RESERVED FOR MONITOR USE 


000060 ' 


OOOOOO 


RES2 : 









RESERVED FOR MONITOR USE 


000062 ' 


OOOOOO 


SVRO: 


OPEN 






LOC TO SAVE RO. 


000064' 


OOOOOO 


SVR1 : 


OPEN 






LOC TO SAVE R1 . 


000066 ' 


OOOOOO 


SVR2: 


OPEN 






LOC TO SAVE R2. 


000070 ' 


OOOOOO 


SVR3 : 


OPEN 






LOC TO SAVE R3. 


000072 ' 


OOOOOO 


SVR4 : 


OPEN 






LOC TO SAVE R4. 


000074 ' 


OOOOOO 


SVR5: 


OPEN 






LOC TO SAVE R5. 


000076' 


OOOOOO 


SVR6 : 


OPEN 






LOC TO SAVE R6. 


0001 00 ' 


OOOOOO 


CSRA: 


OPEN 






ADDR OF CURRENT CSR. 


0001 02' 




SBADR: 








ADDR OF GOOD DATA, OR 


0001 02 ' 


OOOOOO 


ACSR: 


OPEN 






CONTENTS OF CSR. 


0001 04' 




WASADR 








ADDR OF BAD DATA, OR 


0001 04 ' 


OOOOOO 


ASTAT: 


OPEN 






STATUS REG CONTENTS. 


0001 06' 




ERRTYP 








TYPE OF ERROR 


0001 06' 


OOOOOO 


ASB : 


OPEN 






EXPECTED DATA. 


0001 1 ' 


OOOOOO 


AWAS: 


OPEN 






ACTUAL DATA. 


0001 12' 


000416' 


RSTRT: 


RESTRT 






RESTART ADDRESS AFTER END OF PASS 
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0001 14' 


000000 


WDTO: 


OPEN 


;WORDS TO MEMORY PER ITERATION 


0001 16' 


oooooo 


WDFR: 


OPEN 


;WORDS FROM MEMORY PER ITERATION 


0001 20 ' 


oooooo 


INTR: 


OPEN 


OF INTERRUPTS PER ITERATION 


0001 22 ' 


000005 


IDNUM: 


5 


; MODULE IDENTIFICATION NUMBER=5 


0001 24 ' 


002560 ' 


RBUFVA 


BUFIN 


; READ BUFFER VIRTUAL ADDRESS 


0001 26 1 


oooooo 


RBUFPA 


OPEN 


; READ BUFFER PHYSICAL ADDRESS 


0001 30 ' 


oooooo 


RBUFEA 


OPEN 


; READ BUFFER EA BITS 


0001 32 ' 


000400 


RBUFSZ 


256. 


;SIZE OF. THE READ BUFFER 


0001 34 1 


oooooo 


WBUFPA 


OPEN 


;WRITE BUFFER PHYSICAL ADDRESS 


000136' 


oooooo 


WBUFEA 


OPEN 


;WRITE BUFFER EA BITS 


0001 40 ' 


002000 


WBUFRQ 


1 024. 


;WRITE BUFFER SIZE REQUESTED 


0001 42 1 


oooooo 


WBUFSZ 


OPEN 


;WRITE BUFFER SIZE AVAILABLE 


000144' 


oooooo 


CDERCT 


OPEN 


; CDATA/DATCK ERROR COUNT 


0001 46 1 


oooooo 


CDWDCT 


OPEN 


; CDATA/DATCK WORD COUNT 


0001 50 ' 


oooooo 


FREE: 


OPEN 


; RESERVED FOR FUTURE USE: 




000040 




.REPT SPSIZ 


; MODULE STACK STARTS HERE. 



.NLIST 
. WORD 
• LIST 
. ENDR 

000252' IVIODSP: 

********** a;<)|<>|<*#*****#***H^******#****** 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE MACY11 30A(1052) 20-MAR-78 15 



A.P1 1 


1 3- 


MAR-78 OC 


: 00 










207 
















209 


000256 1 


01 2767 


000400 


177630 


START: 


MOV 


#256. , WDTO 


210 


000264 1 


01 2767 


002000 


1 77624 




MOV 


#1024. , WDFR 


211 


000272 ' 


01 2767 


000003 


177620 




MOV 


#3 , INTR 


212 


000300 ' 


005067 


003534 






CLR 


SIDE 


213 


000304 ' 


005067 


00221 






CLR 


DLTCNT 


214 


00031 1 


01 6767 


1 77500 


002214 




MOV 


DVID1 ,DVICE 


215 


00031 6 1 


01 6767 


00221 


00221 




MOV 


DVICE, DRIVE 


216 


000324' 


01 2767 


1 77775 


002210 




MOV 


#-3, BLK1 


217 


000332 ' 


005067 


002200 






CLR 


DRYVE 


218 


000336' 


01 2767 


1 60000 


0021 74 




MOV 


#1 60000,DRVSFT 


219 


000344 ' 


122737 


000002 


000041 




CMPB 


#BIT1 ,@#41 


220 


000352' 


001 006 








BNE 


3$ 


221 




01 2701 


000000 






MOV 


#0 ,R2 


222 




1 1 3700 


000040 






MOVB 


@#40,R0 ; GET 


223 




12701 


000001 






MOV 


#1 f R1 


224 




1 05700 








1$: 


TSTB RO 


225 




001404 








BEQ 


2$ 






006301 








ASL 


R1 






1 05300 








DECS 


RO 






005202 








INC 


R2 






000772 








BR 


1$ 






130167 


0021 50 




2$: 


BITB 


R1 , DVICE 






001404 








BEQ 


3$ 






01 0267 


002146 






MOV 


R2 , DRYVE 






004767 


000716 






JSR 


PC , DROP 


224 
















225 


000370 ' 


01 2767 


1 77777 


002140 


1$: 


MOV 


#-1 , DRYVE 


226 


000376 ' 


004767 


001 576 






JSR 


PC, SETUP 


227, 


000402 1 


004767 


001774 






JSR 


PCREZET 


228 


000406 ' 


005767 


002120 






TST 


DVICE 


229 


00041 2 1 


00 1 536 








BEQ 


FINI 


230 


000414' 


000404 








BR 


RSTRT1 


231 


00041 6 ' 


005767 


002100 




RESTRT: 


TST 


PASCNT 


232 


000422 ' 


001 001 








BNE 


RSTRT1 


233 


000424' 


000712 








BR 


START 


234 


000426 ' 








RSTRT1 : 






235 


000426 ' 


104415 


000000 ' 


0001 24' 




GETPA$ , BEGIN , RBUFVA 


236 


000434 ' 


01 6767 


1 77472 


0021 12 




MOV 


RBUFSZ , WCNT2 


237 


000442 ' 


005467 


0021 06 






NEG 


WCNT2 


238 
















239 


000446 ' 


004767 


000676 




STRT: 


JSR 


PC, BLOCK 


240 


000452 1 


1 0441 4 


000000 ' 






GWBUF$ , 


BEGIN 


241 


000456 ' 


01 6767 


1 77460 


002066 




MOV 


WBUFSZ , WCNT 1 


242 


000464' 


005467 


002062 






NEG 


WCNT1 


243 


000470 ' 


01 6700 


002046 






MOV 


BLK1 , RO 


244 


000474' 


004767 


001600 






JSR 


PC , CONVRT 


245 
















246 


000500 ' 


004767 


001 022 




NEXT : 


JSR 


PC , DRVADR 


247 


000504' 


005767 


002022 






TST 


DVICE 


248 


00051 1 


001477 








BEQ 


FINI 


249 


000512' 


132767 


000010 


003321 




BITB 


#BIT3 , FLAG 


250 


000520 ' 


001352 








BNE 


STRT 


251 


000522' 


042767 


160000 


002000 




BIG 


#1 60000 , DSKADR 
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; WORDS TO MEM 

; WORDS. FROM MEM 

; # OF INTERRUPTS/ ITERATION 

; CLEAR FLAGS AND SIDE INDICATOR 

CLEAR DATA LATE EROR COUNTER 
; GET DRIVE INDICATOR 
; ALSO SAVE IT IN DRIVE 
; INITIALIZE BLOCK COUNTER 
; ZERO UNIT NUMBER 
; INITIALIZE THE SHIFTED DRIVE # 
; IS RK UNIT 0- THE LOAD MEDIUM ? 
; NO, CONTINUE 
; INITIALIZE DRIVE COUNT 
AD MEDIUM COUNT 

; LOAD UP R1 TO POINT TO DRIVE 
J I F RO EQUAL TO THEN 
; GO TO 2$ 

; ELSE UPDATE DRIVE POINTER 

; DECREMENT COUNT 

; UPDATE DRIVE NUMBER 

; TRY AGAIN 

;IF DRIVE NOT SELECTED TO BE TESTED THEN 
;G0 TO 3$ 

; ELSE LOAD DRIVE ADDRESS TO BE DROPPED 
;G0 DROP IT 

; INITIALIZE DRIVE COUNTER 

; GENERATE REGISTER ADDRESSES 

; INITIALIZE RK REGS. AND ALL DRIVES 

; DROP THE MODULE ? 

; YES 

;+ / THIS IS 
;+ / SUPPORT 

/ FOR 
;+ / DT03 
;+/ BUS SWITCH 

; GET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 
; SAVE READ BUFFER SIZE 
; GET THE 2'S COMPLEMENT 

; GET NEXT BLOCK NUMBER 

; GET WRITE BUFFER INFORMATION 

; SAVE WRITE BUFFER SIZE 

; GET THE 2'S COMPLEMENT 

; LOAD BLOCK # FOR CONVRT 

; GENERATE DISK ADR . FROM BLOCK # 

X GET A DRIVE ADDRESS 

; ANY DRIVES LEFT ? 

r NO, GO DROP THE MODULE 

; ALL DRIVES DONE ? 

; YES, GO GET ANOTHER BLOCK 

", CLEAR DRIVE ADDRESS 
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252 


000530 1 


056767 


002004 


00 1 772 




BIS 


DRVSFT , DSKADR 


253 


000536 1 


01 6777 


001 766 


003030 




MOV 


DSKADR f PRKDA 


254 


000544 1 


032777 


000040 


0030 1 




BIT 


#BIT5,@RKDS 


255 


000552 1 


00 1 406 








BEQ 


1$ 


256 


000554 1 


004767 


000526 






JSR 


PC , DROP 


257 


000560 1 


1 4403 


000000 ' 


0040 1 4 




MSGN$, BEGIN, DRP ;ASCII 


258 


000566 ' 


000744 








BR 


NEXT 


259 


000570 1 


032777 


000100 


002764 


1$: 


BIT 


#BIT6,@RKDS 


260 


000576 ' 


001003 








BNE 


2$ 


261 


000600 1 


004767 


001 014 






JSF? 


PC , NOTRDY 


262 


000604 1 


000720 








BR 


STRT 


263 


000606' 


005067 


003230 




2$: 


CLR 


TRY1 


264 


000612' 


1 05067 


003226 






CLRB 


TRY3 



;; LOAD DRIVE ADDRESS 
% LOAD DISK ADDRESS 
;; WRITE PROTECTED ? 
; NO, CONTINUE 
; YES , DROP THE DRIVE 
MESSAGE CALL WITH COMMON HEADER 
; GO ON TO NEXT DRIVE 
; DRIVE READY ? 

YES , CONTINUE 
; NO, WAIT FOR READY 
;; TRY AGAIN 
% ZERO RETRY COUNTERS 
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RKAA.P1 1 


1 3- 


MAR-78 00 :00 


265 








266 








267 


00061 6 1 


004567 


000212 


268 


000622 1 


000434 




269 


000624 1 


132767 


000004 


. 270 


000632 1 


00 1 407 




271 


000634 1 


142767 


000004 


272 


000642 1 


01 2767 


1 77775 


273 


000650 1 


000676 




274 


000652 1 


004567 


000210 


275 


000656 1 


000430 




276 


000660 1 


004567 


000234 


277 


000664 1 


000437 




278 


000666' 


104412 


000000 


279 


000674 ' 


000676 


1 


280 








281 








283 


000702 ' 






234 


000702 1 


1 0441 3 


000000 


285 








286 


000706' 


000674 




287 








288 


00071 ' 






289 


00071 ' 


1 0441 


000000 


290 








291 








292 








293 








294 


00071 4 ' 


1 05267 


0031 22 


295 


000720 ' 


122767 


000003 


296 


000726' 


001333 




297 


000730 ' 


1 04403 


000000 


298 


000736 ' 


000423 




299 








300 


000740 ' 


105267 


003077 


301 


000744 ' 


1 22767 


000003 


302 


000752 ' 


00 1 337 




303 


000754' 


1 04403 


000000 


304 


000762 ' 


00041 1 




305 








306 


000764' 


1 05267 


003054 


307 


000770 ' 


122767 


000003 


308 


000776 1 


00 1 330 




309 


001000' 


104403 


000000 


310 








31 1 


001006' 


032767 


000001 


312 


001014' 


001405 




313 


001016' 


004767 


000264 


314 


001022' 


1 04403 


000000 


315 


001030 ' 


000167 


177444 


316 









003207 

0031 77 
001672 



000126' 



0031 14 
' 003772' 

003071 
' 004000' 

003046 
' 004006' 
177002 

' 004014' 



GO: 



GOA: 
GOB: 



PASS: 



FINI 



RETRY1 



RETRY2: 



RETRY3: 



NEXTA : 



JSR R5 r WRITE 

BR RETRY 1 

BITB #BIT2 , FLAG 

BEG GOA 

BICB #BIT2 , FLAG 

MOV #-3,BLK1 

BR ST RT 

JSR R5.WRITCK 

BR RETRY2 

JSR R5 , READ 

BR RETRY3 
CDATAS , BEGIN , RBUFPA 
.+2 



ENDI T$ , BEGIN 
BR NEXT 

ENDS, BEGIN 



WRITE SOME DATA 
IF ERRORS, TRY IT AGAIN 
DID THE DISK OVERFLOW ? 
NO, CONTINUE 

YES, CLEAR THE OVERFLOW FLAG 

RESET THE BLOCK NUMBER 

START OVER AT BEGINNING OF DISK 

WRITE-CHECK THE DATA 

IF ERRORS, TRY AGAIN 

READ THE DATA WRITTEN 

IF ERRORS, TRY AGAIN 

REQUEST FOR MONITOR TO CHECK DATA 

IF ERROR, CONTINUE 



; SIGNAL END OF ITERATION. 
;MONITOR SHALL TEST END OF PASS 



; DROP THE MODULE 



INCB 


TRY1 


; COUNT THE RETRYS 


CMPB 


#3,TRY1 


; LIMIT EXCEEDED ? 


BNE 


GO 


; NO, GO TRY IT AGAIN 


MSGN$,BEGIN,EXCED1 


; ASCI I MESSAGE CALL WITH 


BR 


NEXTA 


; GO ON TO NEXT DRIVE 


INCB 


TRY2 


; COUNT RETRYS 


CMPB 


#3 ,TRY2 


; LIMIT EXCEEDED ? . 


BNE 


GOA 


; NO, TRY AGAIN 


M5GN$, BEGIN, EXCED2 


;ASCII MESSAGE CALL WITH 


BR 


NEXTA 


; GO ON TO NEXT DRIVE 


INCB 


TRY3 


; COUNT RETRYS 


CMPB 


#3 ,TRY3 


; LIMIT EXCEEDED ? 


BNE 


GOB 


; NO, GO TRY AGAIN 



MSGN$, BEGIN, EXCED3 



; ASCII MESSAGE CALL WITH COMMON HEADER 



1$: 



BIT #BIT0,SR1 ; DROP THE DRIVE ? 

BEQ 1$ ; NO, SKIP TO NEXT DRIVE 

JSR PC, DROP ; YES, DROP OFFENDING DRIVE 

MSGN$, BEGIN, DRP ;ASCII MESSAGE CALL WITH COMMON HEADER 

JMP NEXT ; GO ON TO NEXT DRIVE 
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317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

339 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 
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> 




RK11 DISK 


DRIVERS — 


001034' 


01 2767 


000503 


001462 


WRITE: 


MOV 


#503,FUNC 


; LOAD WRITE FUNCTION 


001 042 ' 


01 6777 


001 504 


002520 




MOV 


WCNT1 ,<&RKWC 


; LOAD WORD COUNT 


001 050 1 


01 6777 


1 77060 


002514 




MOV 


WBUFPA , @RKBA 


:; LOAD BUFFER ADDRESS 


001056 1 


01 6767 


1 77054 


001442 




MOV 


WBUFEA , XMEM 


; LOAD EXTENDED MEMORY BITS 


001 064 1 


000462 








BR 


GOGO 


:; CONTINUE 


001 066 4 


01 2767 


000507 


001430 


writck: 


MOV 


#507, FUNC 


; LOAD WRITE-CHECK FUNCTION 


001 074 1 


01 6777 


001452 


002466 




MOV 


WCNT1 ,@RKWC 


; LOAD WORD COUNT 


001 1 02 1 


01 6777 


1 77026 


002462 




MOV 


WBUFPA, <P>RKBA 


; LOAD BUFFER ADDRESS 


001 1 1 Q ' 


01 6767 


177022 


001410 




MQV 


WBUfEA.XMEM 


; LOAD EXTENDED MEMORY BITS 


001 1 1 6 1 


000445 








BR 


GOGO 


; CONTINUE 


00 1 1 20 1 


01 2767 


000505 


001 376 


READ: 


MQV 


#505,FUNC 


; LOAD READ FUNCTION 


001 1 26 1 


01 6777 


001 422 


002434 




MOV 


WCNT2 ,<P>RKWC 


; LOAD WORD COUNT 


00 1 1 34 1 


01 6777 


1 76766 


002430 




MOV 


RBUFPA ,<s>RKBA 


; LOAD BUFFER ADDRESS 


001 1 42 1 


01 6767 


1 76762 


001356 




MOV 


RBUFEA , XMEM 


; LOAD EXTENDED MEMORY BITS 


001 1 50 ' 


000430 








BR 


GOGO 


; CONTINUE 


001 1 52 1 


01 2777 


000001 


002406 


CLEAR: 


MOV 


#1 ,@RKCS 


; ISSUE A CONTROL RESET 


001 1 60 ' 


004767 


001 260 






JSR 


PC ,WAIT1 


; GO WAIT FOR CONTROLLER READY 


001 1 64 1 


01 6777 


001 350 


002402 




MOV 


DRVSFT ,@RKDA 


; RELOAD THE DRIVE ADDRESS 


0011 72 ' 


032777 


0001 00 


002362 




BIT 


#B I T6 , @>RKDS 


; DRIVE READY ? 


001200 1 


001 001 








BNE 


2$ 


; YES, CONTINUE 


001 202 1 


000205 








RTS 


R5 


; NO, ABORT DRIVE RESET . 


001204' 


01 2777 


000015 


002354 


2$: 


MOV 


#1 5,<aRKCS 


; ISSUE A DRIVE RESET 


00121 2 ' 


004767 


000530 






JSR 


PC , WAIT 


; GIVE IT TIME TO COMPLETE 


001216' 


01 2777 


000001 


002342 




MOV 


#1 ,@RKCS 


; ISSUE ANOTHER CONTROLLER RESET 


001224 ' 


004767 


001214 






JSR 


PC , WAIT1 


; WAIT FOR CONTROLLER READY 


001230 1 


000205 








RTS 


R5 


; RETURN 


001 232 ' 


01 2777 


001 266 ' 


1 76550 


GOGO: 


MOV 


#NTRUPT,@VECTOR 


; SET INTERUPT ENTRY POINTER 


001 240 1 


01 6777 


001 264 


002326 




MOV 


DSKADR , @>RKDA 


; LOAD THE DISK ADDRESS 


001246 ' 


056767 


001254 


001250 




BIS 


XMEM, FUNC 


; LOAD EXTENDED MEMORY BITS 


001254' 


01 6777 


001244 


002304 




MOV 


FUNC,@RKC5 


; EXECUTE THE FUNCTION 


001262 ' 


104400 


000000 ' 






EXITS, BEGIN 


;EXIT TO MONITOR. MODULE 


0012.66' 








NTRUPT: 








001266' 


000004 


000000 ■ 


001274' 




PIRO$, BEGIN, 1$ 


; QUEUE UP TO CONTINUE AT 1$ AND 


001274' 


004567 


000516 




1$: 


JSR 


R5, ERRORS 


; GO CHECK FOR ERRORS 


001300 ' 


000205 








RTS 


R5 


; ERRORS DETECTED, RETURN 


001302' 


005725 








TST 


(R5) + 


; NO ERRORS, SKIP RETRY 


001304' 


000205 








RTS 


R5 


; RETURN OK 
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365 

366 

367 

368 

369 

370 

371 

372 

373 

375 

376 

377 

378 

3?9 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

41 1 

412 

413 

414 

415 

416 

417 

418 

419 
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001306' 


01 2701 


000001 




DROP : 


MOV 


#1 ,R1 


; INITIALIZE DROP PICKER 


00131 2 ' 


01 6700 


001220 






MOV 


DRYVE , RO 


; GET THE DRIVE NUMBER 


001 31 6 1 


00 1 403 








BED 


2$ 


; IF DRIVE GO DROP IT 


001320 ' 


006301 






1$: 


ASL 


R1 


; NO, AIM AT THE NEXT DRIVE 


001322' 


005300 








DEC 


RO 


; IS THIS THE ONE ? 


001324' 


001375 








BNE 


1$ 


; NO, LOOK AGAIN 


001326 ' 


040167 


001200 




2$: 


BIC 


R1 ,DVICE 


; DROP THE DRIVE 














**************************************** 
















-.CONVERT DRYVE TO ASCII AND 
















; STORE AT ADR 1 


001336* 


104420 


09QQQ9 ' 


QQ253S' 




9TQA$,| 


ESIN,BRYVE,ABB1 




001344' 


00403d 
























********************************* **************** 


001346' 


000207 






t 


RTS 


PC 


; RETURN 
._. 


001350 ' 


062767 


000003 


001 1 64 


block: 


ADD 


#3 , BLK1 


; STEP TO NEXT BLOCK 


001356' 


022767 


01 1277 


001 1 56 


• 


CMP 


#4799. , BLK1 


; BLOCK LIMIT REACHED ? 


001364' 


100002 








BPL 


1$ 


; NO, CONTINUE 


001366' 


005067 


001 1 50 






CLR 


BLK1 


; YES, RESET BLOCK # 


001372 ' 


01 6767 


001 144 


001 144 


1$: 


MOV 


BLK1 , BLK2 


; READ WHERE WRITE 


001400 ' 


000207 






f 


RTS 


PC 


; RETURN 


001402 1 


01 6700 


001 1 34 




ROOM: 


MOV 


BLK1 , RO 


; SAVE THE CURRENT BLOCK NUMBER 


001406 1 


01 2701 


004537 






MOV 


#2399. T R 1 


; LOAD MAX. NUMBER OF BLOCK PER SIDE 


00141 2 ' 


005002 








CLR 


R2 


: ZERO REG. 2 


001414' 


022700 


004537 






CMP 


#2399. , R 


; IS SIDE DONE ? 


001420 1 


002002 








BGE 


1$ 


f NO, CONTINUE 


001422 ' 


162700 


004540 






SUB 


#2400. ,R0 


; YES, NORMALIZE BLOCK # FOR SIDE 1 


001426 ' 


01 2767 


000400 


001 1 12 


1$: 


MOV 


#256. , BSIZ 


; HI DENSITY BLOCK SIZE 


001434' 


032777 


004000 


0021 20 




BIT 


#BIT1 1 ,@RKDS 


; HI DENSITY DRIVE ? 


001442 ' 


00 1 002 








BNE 


2$ 


J, YES, CONTINUE 


001444 ' 


006267 


001076 






ASR 


BSIZ 


; NO, SET TO 128 — LO DENSITY 


001450 ' 


160001 






2$: 


SUB 


RO, R1 


; GET # OF BLOCKS LEFT ON DISK 


001452 1 


066702 


001 070 




3$: 


ADD 


BSIZ, R2 


; GET TOTAL NUMBER OF WORDS LEFT 


001456 1 


005301 








DEC 


R1 


; ALL BLOCKS ADDED IN ? 


001460 1 


003374 








BGT 


3$ 


; NO, KEEP ADDING 


001462 1 


005702 








TST 


R2 


; IS # OF WORDS LEFT ON DISK NEG. ? 


001464 1 


1 00404 








BMI 


4$ 


J YES 


001466 1 


005767 


176450 






TST 


WBUFSZ 


; IS TRANSFER SIZE NEG. ? 


001472 1 


1 0041 1 








BMI 


7$ 


; YES 


001474' 


000403 








BR 


5$ 


; NO, GO COMPARE 


001476 ' 


005767 


1 76440 




4$: 


TST 


WBUFSZ 


; IS TRANSFER SIZE POS . ? 


001502' 


1 00003 








BPL 


6$ 


; YES 


001504' 


020267 


1 76432 




5$: 


CMP 


R2 , WBUFSZ 


; WAS THERE ENOUGH ROOM FOR THE TRANSFER 


00151 1 


002402 








BLT 


7$ 


; NO, RETURN OK 


00151 2 1 


005725 






6$: 


TST 


(R5) + 


; YES, MUST BE A REAL ERROR 


001514' 


000205 








RTS 


R5 


; RETURN, ERROR 


001516' 


152767 


000004 


002315 


7$: 


BISB 


#BIT2 , FLAG 


; SET OVERFLOW FLAG 
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420 001524' 000205 



RTS R5 



; RETURN OK 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE 
RKAA.P11 13-MAR-78 00:00 

421 

422 

423 



MACY1 1 30A(105I 



424 


001526 ' 


00 5267 


001 004 




DRVADR: 


I IMC 


425 


001532' 


062767 


020000 


001000 




ADD 


426 


001540 ' 


142767 


000010 


002273 




BICB 


427 


001546' 


022767 


000010 


000762 




CMP 


428 


001554' 


001404 








BEG 


429 


001556' 


006267 


000752 






ASR 


430 


001562 ' 


103361 








BCC 


431 


001564 ' 


000207 








RTS 


432 














433 


001566 ' 


152767 


000010 


002245 


1$: 


BISB 


434 


001574' 


01 2767 


1 77777 


000734 




MOV 


435 


001S02 ' 


01 2767 


160000 


000730 




MOV 


436 


00161 1 


01 6767 


000716 


000716 




MOV 


437 


001616' 


000207 








RTS 



438 
439 
440 



441 


001620 ' 


01 2767 


1 77777 


000710 


NOTRDY: 


MOV 


442 


001626 ' 


01 2767 


1 60000 


000704 




MOV 


443 


001634' 


01 6767 


000672 


000672 




MOV 


444 


001642 ' 


004767 


1 77660 




1$: 


JSR 


445 


001646 ' 


132767 


000010 


0021 65 




BITB 


446 


001654 ' 


00 1 01 2 








BNE 


447 


001656 ' 


01 6777 


000656 


001710 




MOV 


448 


001664 ' 


032777 


0001 00 


001670 




BIT 


449 


001672' 


00 1 363 








BNE 


450 


001674' 


004767 


000046 






JSR 


451 


001700 ' 


000760 








BR 


452 


001702 ' 


000207 






2$: 


RTS 



453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 



001 704' 
001710 ' 
001 71 4 ' 
001720 ' 
001724' 
001726' 

001730 ' 
001736' 
001744' 



01 4167 
01 0167 
01 4267 
01 0267 
005721 
005722 

01 6767 
01 7767 
000207 



1 761 76 
1 76166 
1 761 70 
1 76160 



001632 
001624 



176142 
1761 36 



ERSUB2: MOV 
MOV 
MOV 
MOV 
TST 
TST 

ERSUB1 : MOV 
MOV 
RTS 
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DRYVE 

#BIT13, DRVSFT 
#BIT3 , FLAG 
#8 . f DRYVE 
1$ 

DRIVE 

DRVADR 

PC 



COUNT A DRIVE 

DRIVE COUNT LINED UP WITH RKDA 

CLEAR END OF DRIVES FLAG 

ALL DRIVES CHECKED ? 

YES, GO FLAG END OF DRIVES 

NO, IS NEXT DRIVE CHOSEN ? 

NO, GO TRY ANOTHER DRIVE 

RETURN 



#BIT3 , FLAG 
#-1 , DRYVE 
#160000-, DRVSFT 
DVICE, DRIVE 
PC 



SET END OF DRIVES FLAG 
RESET DRIVE COUNTER 
ZERO THE SHIFTED DRIVE # 
RESTORE CHOSEN DRIVES 
RETURN 



#~ 1 , DRYVE 
#160000 , DRVSFT 
DV ICE, DRIVE 
PC, DRVADR 
#BIT3, FLAG 
2$ 

DRVSFT ,@RKDA 

#BIT6,@RKDS 

1$ 

PC , WAIT 

1$ 

PC 



; START WITH FIRST DRIVE 

; RESET DRIVE SELECT 

; GET A DRIVE ADDRESS 

; ALL DRIVES CHECKED ? 

; YES, RETURN 

; NO, LOAD NEXT DRIVE ADDRESS 

; IS THIS DRIVE READY ? 

; YES, CONTINUE 

; NO, WAIT FOR IT 

; GO CHECK REST OF DRIVES 

; RETURN 



-(R1 ) ,ASB 
R1 , S8ADR 
-(R2) ,AWAS 
R2 , WASADR 
(Rt) + 
(R2) + 



LOAD THE DATA 

LOAD ADDRESS OF DATA WRITTEN 

LOAD THE DATA 

LOAD ADDRESS OF DATA READ 

RESET REG. 1 

RESET REG. 2 



RKCS,CSRA 
@RKCS, ACSR 
PC 



LOAD ADR. OF CURRENT CSR 
LOAD CONTENTS OF CURRENT CSR 
RETURN 
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RKAA.P1 1 


13- 


■MAR-78 


30:00 












4.67 


















468 


















469 


















470 


















471 


001 746 1 


01 2767 


077777 


001604 


WAIT: 


MOV 


#77777, CLK 


; SET THE TIMER 


472 


001754' 








1$ : 








473 


001754' 


■4 r\ J\ A r\ T 

1 44U / 


f\ f\ f\ F\ f\ f\ \ 

000000 






BREAKS , BEGIN 


TEMPORARY RETURN TO MONITOR 


474 


001760 ' 


1 04407 


000000 ' 






BREAKS , BEGIN 


% THEN CONTINUE AT NEXT INSTRUCTION. 


475 


001764' 


032777 


0001 00 


001570 




BIT 


#BIT6,@RKDS 


; DRIVE READY ? 


476 


001772 ' 


001010 








BNE 


2$ 


; YES, RETURN 


477 


001 774 1 


005367 


001560 






DEC 


CLK 


J NO, WAIT SOME MORE ? 


478 


002000 1 


00 1 365 








BNE 


1$ 


; YES , WAIT 


479 


002002 1 


004767 


1 77300 






JSR 


PC, DROP 


; TIME-OUT, DROP THE DRIVE 


490 


002006' 


104403 


000000 1 


004014' 




MSGNS , BEGIN t DRP ;ASCII MESSAGE CALL WITH COMMON HEADER 


481 
482 
483 


002014' 


000207 






2$; 


RTS 


PC 


; RETURN 


00201 6 ' 


004767 


1 77706 




V 

ERRORS: 


JSR 


PC , ERSUB1 


; LOAD ERROR INFORMATION 


484 


002022 ' 


032777 


040000 


001536 




BIT 


#BIT14,@RKCS 


; HARD ERROR ? 


485 


002030 ' 


00 1 006 








BNE 


1S 


; YES, GO REPORT 


486 


002032 ' 


032777 


000003 


001524 




BIT 


#3 ,@RKER 


; SOFT ERROR ? 


487 


002040 ' 


001041 








BNE 


3$ 


; YES, GO REPORT 


488 


002042 ' 


005725 








TST 


(R5) + 


; NO, SKIP RETRY 


489 


002044 ' 


000205 








RTS 


R5 


*, RETURN OK 


490 


002046 ' 


032777 


040000 


00151 


1$: 


BIT 


#BIT14,@RKER 


; DISK OVERFLOW ? 


491 


002054 ' 


00 1 403 








BEQ 


7$ 


:; NO, CONTINUE 


492 


002056 1 


004567 


1 77320 






JSR 


R5.R00M 


; YES, IS IT A REAL ERROR ? 


493 


002062 1 


000442 








BR 


5$ 


; NO, CONTINUE 


494 


002064 ' 


032777 


001 000 


001472 


7$: 


BIT 


#BIT9 , @RKER 


; DATA LATE ERROR? 


495 


002072 ' 


00 1 41 1 








BEQ 


2$ 


;N0 


496 


002074' 


005267 


000420 






INC 


DLTCNT 


; INCREMENT ERROR COUNTER 


497 


0021 00 1 


032767 


000004 


175710 




BIT 


#BIT2,SR1 


; TYPE OUT ERROR? 


498 


0021 06 1 


001013 








BNE 


6$ 


; NO 


499 


0021 1 1 


1 04403 


000000 ' 


004024' 




MSGNS, BEGIN, DLTERR 


; ASCI I MESSAGE CALL WITH COMMON HEADER 


500 


0021 16' 








2$: 








501 


0021 1 6 1 


104403 


000000 ' 


003762' 




MSGNS, BEGIN, HARD 


;ASCII MESSAGE CALL WITH COMMON HEADER 


502 


0021 24' 


005067 


1 75756 






CLR 


ERRTYP 




503 












J*************************************************************** 


504 


0021 30 1 


104405 


000000 ' 


003562' 




HRDERS , BEGIN , TABLE 




505 












; si*********************** 




506 


0021 36 1 


004567 


177010 




6$: 


JSR 


R5, CLEAR 


; GO CLEAR OUT ERRORS 


507 


0021 42 ' 


00041 1 








BR 


4$ 


; RETURN 


508 


002144' 








3$: 








509 


002144' 


104403 


000000 ' 


003766' 




MSGNS, BEGIN, SOFT 


; ASCI I MESSAGE CALL WITH COMMON HEADER 


510 


0021 52 1 


01 2767 


000001 


175726 




MOV 


#1 , ERRTYP 


; DATA ERROR 


511 












; ************** * * ******* 


***************************************** 


512 


0021 60 ' 


1 04406 


000000 ' 


003562' 




SOFERS , BEGIN, TABLE 




513 












; *********************** 


***************************************** 


514 


0021 66 ' 


000205 






4$: 


RTS 


R5 


; RETURN, ERRORS 


515 


0021 70 ' 


004567 


1 76756 




55: 


JSR 


R5, CLEAR 


; CLEAR OUT ERRORS 


516 


0021 74 ' 


005725 








TST 


(R5) + 


; SKIP RETRY 


517 


0021 76' 


000205 








RTS 


R5 


; RETURN OK 


518 
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519 

520 



521 


002200 1 


01 6700 


1 75602 


SETUP: MOV 


ADDR , RO 


? GET DEVICE ADDRESS 


522 


002204 1 


01 0067 


001352 


MOV 


RO , RKDS 


; GENERATE CONTROLLER REGS 


523 


00221 ' 


005720 




TST 


(R0) + 




524 


002212' 


01 0067 


001346 


MOV 


RO ,RKER 




525 


00221 6 ' 


005720 




TST 


(R0) + 




526 


002220 1 


01 0067 


001 342 


MOV 


RO ,-RKCS 




527 


002224' 


005720 




TST 


(R0) + 




523 


002226 ' 


01 0067 


001336 


MOV 


RO , RKWC 








\J \J -J 1 w 




TST 


( RO 1 + 




530 


002234' 


01 0067 


001332 


MOV 


RO , RKBA 




531 


002240 ' 


005720 




TST 


(R0) + 




532 


002242 1 


01 0067 


001326 


MOV 


RO.RKDA 




533 


002246 ' 


005720 




TST 


(R0) + 




534 


002250 ' 


01 0067 


001322 


MOV 


RO ,RKMR 




535 


002254 ' 


005720 




TST 


(R0) + 




536 


002256 ' 


01 0067 


001 316 


MOV 


RO , RKDB 




537 














538 


002262 ' 


01 6700 


175522 


MOV 


VECTOR, RO 


; GET THE VECTOR ADDRESS 


539 


002266 ' 


01 2720 


000446 ' 


MOV 


#STRT , (R0) + 


; SET POINTER JUST IN CASE 


540 


002272 ' 


1 1 6710 


1 75514 


MQVB 


BR 1 , (RO) 


% SET PRIORITY 


541 
542 


002276' 


000207 




2$: RTS 


PC 


; RETURN 



543 
544 
545 



546 


002300 ' 


005001 






CONVRT: 


CLR 


R1 




ZERO REG. 1 


547 


002302 ' 


1 05067 


001532 






CLRB 


SIDE 




ZERO THE SIDE INDICATOR 


548 


002306' 


01 2703 


1 77764 






MOV 


#~12. ,R3 




LOAD REG. 3 


549 


002312' 


01 2704 


000013 






MOV 


#1 1 . , R4 




LOAD REG. 4 


550 


00231 6 ' 


022700 


004537 






CMP 


#2399. ,R0 




IS BLOCK ON SIDE ? 


551 


002322 ' 


002005 








BGE 


1$ 




YES, CONTINUE 


552 


002324' 


152767 


000020 


001506 




BISB 


#BIT4,SIDE 




NO, FLIP TO SIDE 1 


553 


002332 ' 


062700 


1 73240 






ADD 


#-2400. ,R0 




NORMALIZE BLOCK # FOR SIDE 1 


554 


002336 ' 


020400 






1$: 


CMP 


R4,R0 




FIND THE RIGHT CYLINDER ? 


555 


002340 ' 


002003 








BGE 


2$ 




YES, CONTINUE 


556 


002342 ' 


060300 








ADD 


R3,R0 




NO, SUBTRACT 12 SECTORS (1 CYLINDER) 


557 


002344' 


005201 








INC 


R1 




KEEP TRACK OF CYLINDER ADDRESS 


558 


002346' 


000773 








BR 


1$ 




GO TRY AGAIN 


559 


002350 ' 


01 0067 


0001 54 




2S: 


MOV 


RO , DSKADR 




LOAD THE SECTOR ADDRESS 


560 


002354' 


156767 


001460 


000146 




BISB 


SIDE, DSKADR 




LOAD THE SIDE ADDRESS 


561 


002362 ' 


01 2702 


000005 






MOV 


#5,R2 


9 


SET UP FOR SHIFT 


562 


002366 ' 


006301 






3$: 


ASL 


R1 




LINE UP CYL. ADR. WITH DSKADR 


563 


002370 ' 


005302 








DEC 


R2 




DONE ? 


564 


002372 ' 


003375 








BGT 


3$ 




NO, GO SHIFT AGAIN 


565 


002374' 


050167 


000130 






BIS 


R1 , DSKADR 


'f 


YES, LOAD THE CYLINDER ADDRESS 


566 


002400 ' 


000207 








RTS 


PC 




RETURN 



567 
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568 


002402 1 


01 2777 


000001 


001 1 56 


REZET: 


MOV 


#1 ,<3RKCS 


569 


00241 ' 


004767 


000030 






JSR 


PC , WAIT1 


570 


00241 4 1 


004767 


1 77200 






JSR 


PC , NOTRDY 


571 


002420 ' 


004767 


1 771 02 




1$: 


JSR 


PC , DRVADR 


572 


002424 1 


132767 


000010 


001407 




BITB 


#BIT3 , FLAG 


573 


002432 1 


001003 








BNE 


2$ 


574 


002434 1 


004567 


1 76512 






JSR 


R5, CLEAR 


575 


002440 1 


000767 








BR 


1$ 


576 


002442 1 


000207 






2$: 


RTS 


PC 


577 
















578 
















579 
















580 


002444' 


01 2767 


077777 


001106 


WAIT1 : 


MOV 


#77777, CLK 


581 


002452' 


105777 


001 1 10 




1$: 


TSTB 


@RKCS 


582 


002456 1 


1 0041 7 








BMI 


2$ 


583 


002460 ' 


1 04407 


OOOOOO ' 






BREAKS, BEGIN 


584 


002464 ' 


1 04407 


OOOOOO ' 






BREAKS, BEGIN 


585 


002470 ' 


005367 


001 064 






DEC 


CLK 


586 


002474 ' 


001 366 








BNE 


1$ 


587 


002476' 


01 2767 


000003 


175402 




MOV 


#3 , ERRTYP 


588 














589 


002504 ' 


104405 


OOOOOO 1 


003562' 




HRDER$ , BEGIN, TABLE 


590 












; ****************** 


591 


00251 2 ' 


0001 67 


1 761 72 






JMP 


FINI 


592 


002516' 


000207 






2$: 


RTS 


PC 


593 
















594 
















595 


002520 ' 


000000 






DLTCNT: 







597 


002524 ' 


oooooo 






FUNC: 







598 


002526 ' 


000000 






XW!EM: ■ 







599 


002530 ' 


oooooo 






DSKADR: 







600 


002532' 


oooooo 






DVICE: 







601 


002534 ' 


oooooo 






DRIVE: 







602 


002536 ' 


oooooo 






DRYVE: 







603 


002540 ' 


oooooo 






DRVSFT: 







604 


002542 ' 


oooooo 






BLK1 : 







605 


002544 ' 


oooooo 






BLK2: 







606 


002546 ' 


oooooo 






BSIZ: 







607 


002550 ' 


oooooo 






TBUF: 







608 


002552 ' 


oooooo 






WCNT1 : 







609 


002554' 


oooooo 






WCNT2: 







610 


002556 ' 


000400 






BUFLEN: 


256. 




61 1 


002560 ' 


000400 






BUFIN: 


. BLKW 


256. 


612 


003560 ' 


oooooo 






CLK: 







613 


003562 ' 








TABLE: 






614 


003562 ' 


oooooo 






RKDS: 







615 


003564 ' 


oooooo 






RKER: 







616 


003566 ' 


oooooo 






RKCS: 







617 


003570 ' 


oooooo 






RKWC : 







618 


003572 ' 


oooooo 






RKBA: 







619 


003574' 


oooooo 






RKDA: 







620 


003576' 


oooooo 






RKMR: 







621 


003600 1 


oooooo 






RKDB: 







622 


003602 ' 


177777 








1 77777 
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; EXECUTE CONTROLLER RESET 

; GO WAIT FOR CONTROLLER READY 

; MAKE SURE ALL CHOSEN DRIVES ARE READY 

; GET A DRIVE ADDRESS 

; ALL DRIVES DONE ? 

; YES, RETURN 

; ISSUE DRIVE RESET AND CONTROLLER CLEAR 

; KEEP GOING 

; RETURN 



; SET THE TIMER 

; CONTROLLER READY ? 

; YES, CONTINUE 

TEMPORARY RETURN TO MONITOR,... 
; THEN CONTINUE AT NEXT INSTRUCTION. 
; WAIT SOME MORE ? 
; YES 

; CONTROLLER NOT READY 

; CONTROLLER NOT READY 
******************************************* 

; GO DROP THE MODULE 
; READY, RETURN 
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VA . P 1 1 


1 3- 


-MAR-78 OC 


: 00 












623 


003604 


020040 


044040 


051 1 01 


MES1 : 


. ASCIZ 


i 


HARD ERROR' 


624 


0036 1 2 


0201 04 


051 1 05 


047522 










625 


003620 


0001 22 














626 


003622 


020040 


051440 


0431 1 7 


NSES2: 


.ASCIZ 


i 


SOFT ERROR 1 


627 


003630 


0201 24 


0511 05 


047522 










628 


003636 


0001 22 














629 


003640 


020040 


051 1 04 


0531 1 1 


MES4: 


.ASCIZ 


• 


DRIVE ' 


630 


003646 


0201 05 


000040 












631 


003652 


020040 


051 1 04 


0501 1 7 


MES5 : 


.ASCIZ 


• 


DROPPED%' 


632 


003660 


042520 


022504 


000 










633 


003665 


040 


042522 


051 1 24 


MES6: 


. ASCIZ 




RETRY EXCEEDED% 


634 


003672 


0201 31 


0541 05 


042503 










635 


003700 


0421 05 


0421 05 


000045 










636 


00^706 


053440 


044522 


042524 


MES7: 


. ASCIZ 




WRITE 1 


637 


003714 


000 














638 


0037 1 5 


040 


051 1 27 


0521 1 1 


MES8: 


. ASCIZ 




WRITE-CHECK' 


639 


003722 


026505 


0441 03 


041 505 










640 


003730 


0001 13 














641 


003732 


05 1 040 


040505 


0001 04 


IV1ES9: 


•ASCIZ 




READ' 


642 


003740 


040504 


040524 


046040 


MES10: 


.ASCIZ 


'DATA LATE ERROR% 


643 


003746 


0521 01 


0201 05 


051 1 05 










644 


003754 


047522 


022522 


000 










645 




003732 1 








. EVEN 






646 


003762 


003604 ' 






HARD: 


MES1 






647 


003764 


1 77777 








1 777 77 






648 


003766 


003622 1 






SOFT: 


MES2 






649 


003770 


1 77777 








1 77777 






650 


003772 


003706 1 






EXCED1 : 


MES7 






651 


003774 


003665 1 








MES6 






652 


003776 


1 77777 








1 77777 






653 


004000 


00371 5 1 






EXCED2: 


MES8 






654 


004002 


003665 ' 








MES6 






655 


004004 


1 77777 








1 77777 






656 


004006 


003732 1 






EXCED3: 


MES9 






657 


0040 1 


003665 1 








MES6 






658 


0040 1 2 


1 77777 








1 77777 






659 


0040 1 4 


003640 1 






DRP: 


MES4 






660 


0040 1 6 


004035 1 








NUMB 






661 


004020 


003652 1 








MESS 






662 


004022 


1 77777 








1 77777 






663 


004024 


003740 ' 






DLTERR: 


MES1 






664 


004026 


1 77777 








1 77777 






665 


004030 


000005 






ADR 1 : 


. BLKB 


5 




666 


004035 


000 






NUMB: 


.BYTE 







667 


004036 


000000 








. WC3RD 







668 


004040 


000 






SIDE: 


. BYTE 







669 


004041 


000 






FLAG: 


. BYTE 







670 












. EVEN 






671 


004042 


000 






TRY1 : 


. BYTE 







672 


004043 


000 






TRY2 : 


. BYTE 







673 


004044 


000 






TRY3 : 


. BYTE 







674 




004046 ' 








. EVEN 






675 


















676 




000001 








. END 
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RKAA DEC/X11 SYSTEM 


EXERCISER MODULE 


R K A A P 1 1 


1 MAR— 


78 00:00 




ACSR 


0001 noR 

W W W I w *cl v\ 


1 78# 


464* 


ADDR 


W W W W W U r\ 


1 45# 


52 1 


ADR 1 




378 


665# 


ASB 


0001 orr 

Www I w vj r\ 


1 82# 


456* 


ASTAT 


00 01 04 R 

WWW 1 w *-f I\ 


1 80 




AW AS 


0001 1 OR 
w w w 1 i w r\ 


1 83# 


458* 


BEGIN 


oooooor 

w w w w w w r\ 


1 42# 


235 






378 


473 


B I TO = 


nnnnn 1 

w W W \J W 1 


207# 


22 1 


B I T 1 = 


W W W W W ^ 


207# 


21 9 


BIT1 = 


009000 

w w w w w 


207# 




B I T 1 1 = 


OOdOOO 
W W ^ w w w 


207# 


40 1 


R T T 1 2 - 


01 0000 
w i w w w w 


207# 




BIT1 3 = 


090000 
w x w u w w 


207# 


425 


B I T 1 4 = 


0400 00 

W *T w U WW 


207# 


484 


BIT1 5 = 


100000 


207# 




B I T2 = 


000004 

\J \J \J \J W T 


207# 


269 


BI T3 = 


0000 1 


207# 


249 


BIT4 = 


000020 


207# 


552 


BIT5 = 


000040 


207# 


254 


BI T6 = 


0001 00 


207# 


259 


BI T7 = 


000900 

\J \J v *i, \y \J 


207# 




BI T8 = 


000400 


207# 




BI T9 = 


001 000 


207# 


494 


BLK1 


009R49 R 


21 6* 


243 


B LK2 


009R44R 


389* 


605# 


B LOCK 


no 1 ^so r 


239 


385# 


BREAK$= 


1 04*io 7 

1 V " *T * 


207# 


473 


BR 1 


noon 1 or 


1 47# 


540 


BR2 


no 00 1 3 R 


1 48// 




BS I Z 


V V <£ J " \J f* 


40 * 


403* 


BTOD$ = 


1 0442 1 


207# 




BU F I N 


009 c ifiOR 

W U i. J U \J I \ 


1 89 


61 1 # 


RU F I EN! 


9 R R fi R 


61 0# 




rnAT a$ - 


1 044 1 2 


207 # 


278 


CDF RCT 

\s \J i— r\ >rf l 


0001 d4R 

WWW 1 t " i\ 


1 97# 




rnwnrT 


O 1 4 fi R 
WWW I *•+ w r\ 


1 98# 




CLEAR 


001 1 R9 R 

W w l 1 «J r\ 


337# 


506 


C LK 


00 ^fiO R 
W w o O w w r\ 


47 1 * 


477* 


CNT 


00 Tf. 9 R 

U U J ^1 t i * 


208* 


23 1 


CONVRT 


009'} 00R 

\J W 4_ O \J \J < x 


244 


546# 


CSRA 


0001 00R 

V/ v \y 1 v w r\ 


1 76# 


46 3* 


DATCK$ - 


1 044 1 1 


207# 




DATERS = 


1 04404 


207# 




DLTCNT 


002520R 


21 3* 


496* 


DLTERR 


004024R 


499 


663# 


DRIVE 


002534R 


215* 


429* 


DROP 


001306R 


223 


256 


DRP 


00401 4R 


257 


31 4 


DRVADR 


001526R 


246 


424# 


DRVSFT 


002540R 


218* 


252 


DRYVE 


002536R 


217* 


225* 


DSKADR 


002530R 


251 * 


252* 


DVICE 


002532R 


214* 


215 
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240 257 278 284 289 297 303 309 314 353 357 

474 480 499 501 504 509 512 583 584 589 

311 



490 

271 419 497 

426 433 445 572 



340 448 475 

272* 385* 386 388* 389 394 604# 

474 583 584 

405 606# 



515 574 

580* 585* 612# 

282* 596* 



595# 



436* 


443* 


601 # 








313 


367# 


479 








480 


659# 










430 


444 


571 








339 


425* 


435* 


442* 


447 


603# 


368 


374 


424* 


427 


434* 


441 * 


253 


350 


559* 


560* 


565* 


59 9 # 


221 


228 


247 


373* 


436 


443 



602# 
600# 
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DVID1 000014R 
ENDIT$= 104413 



149# 214 
207# 284 
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RKAA DEC/X11 SYSTEM 


EXERCISER I 


VIODULE 


MAC Y 1 1 


30A(1052) 


20-MAR 


RKAA.P1 1 


1 3-MAR- 


78 00:00 




CROSS 


REFERENCE 


TABLE — 


ENDS = 


1 0441 


207# 


289 








ERRORS 


002016R 


360 


483# 








ERRTYP 


0001 OGR 


1 81# 


502* 


510* 


587* 




ERSUB1 


001730R 


463# 


48 3 








ERSUB2 


001 704R 


456# 










EXCED1 


003772R 


297 


650# 








EXCED2 


004000R 


303 


653# 








EXCED3 


004006R 


309 


656# 








EXITS a 


1 04400 


207# 


353 








FINI 


00071 OR 


229 


248 


288# 


591 




FLAG 


004041 R 


249 


269 


271 * 


419* 


426* 


FREE 


0001 50R 


1 99# 










FUNC 


002524R 


321 * 


326* 


331 * 


351* 


352 


GETPA$= 


10441 5 


207# 


235 








GQ 


00061 6R 


267# 


296 








GO A 


000652R 


270 


274# 


302 






GOB 


000660R 


276# 


308 








GOGO 


001 232R 


325 


330 


335 


349# 




GWBUF$= 


1 0441 4 


2070 


240 








HARD 


003762R 


501 


646# 








HRDCNT 


000044R 


162# 










HRDER$ = 


104405 


207# 


504 


589 






HRDPAS 


000050R 


164# 










ICONT 


000036R 


159# 










ICOUNT 


000040R 


160# 










IDNUM 


0001 22R 


188# 










I MOD*. = 


000000 


200# 


241 








INIT 


00003CR 


1 56# 










INTR 


000120R 


1 87# 


21 1 * 








MAP22$= 


1 044 1 6 


207# 










MES1 


003604R 


623# 


646 








MES1 


003740R 


642# 


663 








MES2 


003622R 


626# 


648 








MES4 


003640R 


629# 


659 








IV1ES5 


003652R 


631# 


661 








MES6 


003665R 


633# 


651 


654 


657 




MES7 


003706R 


636# 


650 








MES8 


00371 5R 


638# 


653 








MES9 


003732R 


641# 


656 








MODNAM 


OOOOOOR 


143# 










MOD5P 


000252R 


157 


205# 








MSGNS = 


104403 


207# 


257 


297 


303 


309 


MSGS$ = 


1 04402 


207# 










MSGS = 


1 04401 


2Q7# 










NEXT 


000500R 


246# 


258 


286 


315 




NEXTA 


001006R 


298 


304 


31 10 






NOTRDY 


001620R 


261 


441 # 


570 






NTRUPT 


001266R 


349 


355# 








NULL = 


000000 


207# 










NUMB 


004035R 


660 


666# 








OPEN = 


000000 


144 


150 


151 


152 


153 






178 


180 


182 


183 


185 






198 


199 


207# 






OTOA$ = 


104420 


2Q7# 


378 
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433* 
597# 



445 



572 



669# 



314 



480 



499 



501 



509 



169 
186 



170 
187 



171 
190 



172 
191 



173 
193 



174 
194 



175 
196 



176 
197 
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PASCNT 000034R 1 58# 

PASS 000702R ' 283# 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE 
RKAA.P11 13-MAR-78 00:00 



PIRQS = 


000004 


207# 


357 


POPSP = 


005726 


207# 




P0PSP2= 


022626 


207# 




PRTY = 


000000 


207# 




PRTYO = 


000000 


148 


207# 


PRTY 1 = 


000040 


207# 




PRTY2 = 


000100 


207# 




PRTY3 = 


000140 


207# 




PRTY4 = 


000200 


207# 




PRTY5 - 


000240 


1 47 


207# 


PRTY6 = 


000300 


207# 




PRT Y7 = 


000340 


2Q7# 




PS = 


177776 


207# 




PSW ■ 


177776 


207# 




PUSH a 


005746 


207# 




PUSH2 = 


024646 


207# 




RANDS = 


1 044 1 7 


207# 




R ANNUM 


000054R 


1 66# 




RBUFEA 


0001 30R 


1 91 # 


334 


RBUFPA 


000126R 


1 90# 


278 


RBUFSZ 


0001 32R 


1 92# 


236 


RBUFVA 


0001 24R 


1 89# 


235 


READ 


001 1 20R 


276 


331 # 


RESTRT 


0004 1 6R 


1 84 


231 # 


RES1 


000056R 


1 67# 




RES2 


000060R 


1 6Q# 




RETRY1 


0007 1 4R 


26$ 


294# 


RETRY2 


000740R 


275 


300# 


RETRY3 


000764R 


277 


306# 


REZET 


002402R 


227 


568# 


RKBA 


003572R 


323* 


328* 


RKCS 


003566R 


337* 


343* 


RKDA 


003574R 


253* 


339* 


RKDB 


003600R 


536* 


62 1# 


RKDS 


003562R 


254 


259 


RKER 


003564R 


486 


490 


RKMR 


003576R 


534* 


620# 


RKWC 


003570R 


322* 


327* 


ROOM 


001 4.02 R 


394# 


492 


RSTRT 


0001 1 2R 


1 84# 




RSTRT1 


000426R 


230 


232 


SBADR 


0001 02R 


1 77# 


457* 


SETUP 


002200R 


226 


521 # 


SIDE 


004040R 


21 2* 


547* 


SOFCNT 


000042R 


161# 




SOFER$= 


1 04406 


207# 


512 


SOFPAS 


000046R 


1 63# 




SOFT 


003766R 


509 


648# 


SPOINT 


000032R 


1 57# 




SPSIZ = 


000040 


1 # 


200 


SR1 


00001 GR 


150# 


31 1 


SR2 


000020R 


151# 




SR3 


000022R 


152# 




SR4 


000024R 


153# 
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333 



333* 
345* 
350* 



530* 
352* 
447* 



618# 

463 

532* 



464 
619# 



484 526* 568* 581 



616# 



340 
494 



401 
524* 



448 
61 5# 



475 



522* 614# 



332* 



528* 



61 7# 



234# 



552* 



560 



66 8 # 



497 
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START 000252R 156 208# 233 

STAT 000026R 155# 
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RKAA DEC/X11 SYSTEM EXERCISER MODULE 



RKAA . P 1 1 


13-MAR-78 00 


00 




STRT 


000446R 


239# 


250 


SVRO 


000062R 


1 69# 




SVR1 


000064R 


1 70# 




SVR2 


000066R 


171# 




SVR3 


000070R 


1 72# 




SVR4 


000072R 


1 73# 




SVR5 


000074R 


1 74# 




SVR6 


000076R 


1 75# 




SYSCNT 


000052R 


1 65# 




TABLE 


003562R 


504 


51 2 


TBUF 


002550R 


607# 




TRPDFD= 


000022 


207# 




TRY1 


004042R 


263* 


294* 


TRY2 


004043R 


300* 


301 


TRY3 


004044R 


264* 


30 6* 


VECTOR 


00001 OR 


146# 


349* 


WAIT 


001746R 


344 


450 


WAIT1 


002444R 


338 


346 


WASADR 


0001 04R 


1 79# 


459* 


WBUFEA 


0001 36R 


1 94# 


324 


WBUFPA 


0001 34R 


193# 


323 


WBUFRO 


0001 40R 


1 95# 




WBUFSZ 


0001 42R 


1 96# 


241 


WCNT1 


002552R 


241 * 


242* 


WCNT2 


002554R 


236* 


237* 


WDFR 


0001 1 6R 


186# 


21 0* 


WDTO 


0001 14R 


1S5# 


209* 


WRITCK 


001 066R 


274 


326# 


WRITE 


001 034R 


267 


32 1# 


XFLAG 


000005R 


144# 




XMEM 


002526R 


324* 


329* 




004046R 


279 


61 1# 
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262 273 539 



5B9 



295 

672# 

307 

538 

471# 

569 

329 
328 

410 
322 
332 



61 3# 

67 1# 
6730 

580# 

41 3 
327 
609# 



415 
608# 



334* 351 598# 
645# C565# 674# 
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RKAA DEC/X11 SYSTEM EX 


RKAA . P 1 1 


1 3-MAR 


-78 


BKMQD 


1 # 




BREAK 


1 # 


472 


BTOD 


1 # 




CKDATA 


1 # 


278 


DAT ACK 


1 # 




DATERR 


1 # 




DFSEVN 


1 # 


207 


DSEVNT 


1 # 


207 


END 


1 # 


288 


END I T 


1 # 


283 


FOIIAT^ 


1 # 


207 


EXIT 


1 # 


353 


GETPA 


1 # 


235 


fiWRU FF 


1 £ 


240 


HRDER 


1 # 


503 


IOMOD 


1 # 




IOMODP 


1 # 




IOMODR 


1 # 




IOMODX 


1 # 


1 36 


MAP22 


1 # 




MODULE 


1 # 


1 37 


MSG 


1 # 




MSGN 


1 # 


257 


MSGS 


1 # 




N BKMOD 


1 H 




OTOA 


1 # 


375 


PIRO 


1 # 


355 


RAND 


1 # 




SBKMOD 


1 if 




SOFER 


1 # 


51 1 


. ABS. 


oocooo 


000 




004046 


001 


ERRORS 


DETECTED: 






MODULE 



00:00 
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583 



5B8 



297 



303 



309 



314 



480 



499 



500 



508 



DEFAULT GLOBALS GENERATED : 
RKAA, RKAA/CRF/SOL=DDXCOM, RKAA 
RUN-TIME: 1 2 .4 SECONDS 
RUN-TIME RATIO: 37/4=8.1 
CORE USED: 7K (13 PAGES) 
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Source Module Example (RKAA) 



REM 



PRODUCT CODE: 
PRODUCT NAME: 
DATE: 

MAINTAINER: 
AUTHOR(S) : 
REVISED BY: 



IDENTIFICATION 



MAINDEC-1 1-DXRKA-E-D 

DEC/X11 RK11 MODULE 
21 MAR 1974 
DIAGNOSTIC GROUP 
ROBERT E. UNDERWOOD 
S. J.H. (3/75) 



COPYRIGHT (C) 1975 

Digital Equipment Corporation, Maynard, Mass. 

This software is furnished under a license for use only 
on a single computer system and may be copied only with 
the inclusion of the above copyright notice. This 
software, or any other copies thereof, may not be provided 
or otherwise made available to any other person except 
for use on such system and to one who agrees to these 
license terms. Title to and ownership of the software 
shall at all times remain in DEC. 

The information in this document is subject to change 

without notice and should not be construed as a 

commitment by digital equipment corpor tat i on . 

DEC assumes no respons i bi 1 i ty for the use or reliability 

of its software on equipment which is not supplied by 

DEC. 
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ABSTRACT 



RKA IS AN IOMODX THAT EXERCISES RK02, RK03, RK04, RK05 DISK 
DRIVES ON AN RK1 1 CONTROLLER. IT EXERCISES THE DRIVES BY 
DOING WRITES, WR I TE-CHECKS , READS, AND IN-CORE COMPARISONS. 
ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE TTY. 

REQUIREMENTS 



HARDWARE: 1 TO 8 RK DISK DRIVES WITH AN RK11 CONTROLLER 
STORAGE: RKA REQUIRES 983 WORDS OF STORAGE 

PASS DEFINITION 



ONE PASS OF THE RKA MODULE CONSISTS OF 512 CYCLES OF THE 
BASIC TEST SEQUENCE (WRITE, WRITE-CHECK, READ, DATA"CHECK). 
THE TEST SEQUENCE WRITES 1024 WORDS , WR I TE-CHECKS SAME , READS 
THE FIRST 256 WORDS, AND DATA-CHECKS SAME. 

EXECUTION TIME 



ONE PASS OF RKA RUNNING ALONE ON A PDP-11/40 TAKES 
APPROXIMATELY 1 MINUTE. 

CONFIGURATION REQUIREMENTS 



DEFAULT PARAMETERS: 

DEVADR: 177400, VECTOR: 220, BR1 : 5, DEVCNT: 1 

REQUIRED PARAMETERS: 
NONE 

DEVICE/OPTION SETUP 



MAKE CERTAIN THAT ALL DRIVES ARE POWERED UP, WRITE \ ENABLED, 
AND READY t 



APPENDIX C 



Page 66 



MODULE OPERATION 



TEST SEQUENCE: 

A. SETUP DEVICE REGISTER ADDRESSES AND MODULE VARIABLES 

B. RESET ALL DRIVES ON-LINE AND DROP ALL THAT ARE NOT 
C GET A DISK ADDRESS AND A FRESH BLOCK OF DATA 

D. GET A DRIVE ADDRESS 

E. DO A WRITE ~ IF ERRORS, REPORT AND RETRY UP TO RETRY 
LIMIT 

F. DO A WRITE-CHECK — IF ERRORS, REPORT AND RETRY UP TO 
RETRY LIMIT 

G. DO A READ — IF ERRORS, REPORT AND RETRY UP TO RETRY 
LIMIT 

H . DO A DATA-CHECK — IF ERRORS, REPORT AND CONTINUE 

I. IF END OF PASS, REPORT AND GO TO C 

J. IF END OF DRIVES, GO TO C ELSE GO TO D 

OPERATION OPTIONS 



SR1 BIT SET(1 ) : 

IF THE RETRY LIMIT IS EXCEEDED ON ANY FUNCTION, A HARD ERROR 
IS ASSUMED AND THE DRIVE IS DROPPED. 

SR1 BIT C LEAR ( ) : 

IF THE RETRY LIMIT IS EXCEEDED, THE FUNCTION IS ABORTED AND 
THE TESTING CONTINUES. 

SR1 BIT 2 SET( 1 ) : 

WILL NOT TYPE OUT DATA LATE ERRORS BUT WILL KEEP TRACK OF THE 
NUMBER OF DATA LATE ERRORS. 

SR1 BIT 2 C LEAR ( ) : 

TYPE OUT DATA LATE ERRORS AND KEEP TRACK OF THE NUMBER OF 
DATA LATE ERRORS IN DLTCNT. 

NON-STANDARD PRINTOUTS 



A. MOST PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN 
THE DEC/X11 DOCUMENT 

B. ERROR MESSAGES DUMP THE CONTENTS OF THE 6 RK11 
REGISTERS IN THE FOLLOWING ORDER: 

RKDS RKER RKCS RKWC RKBA RKDA RKMR RKDB 
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IOMODX 
. PAGE 

START: MOV 

MOV 
MOV 
CL'R 
CLR 
MOV 
MOV 
MOV 
CLR 
MOV 
CMPB 
BNE 
BIT 
BEQ 
JSR 

MOV 
JSR 
JSR 
TST 
BEQ 
BR 
TST 
BNE 
BR 

GETPA 
MOV 
NEG 

STRT: JSR 

GWBUFF 
MOV 
NEG 
MOV 
JSR 

JSR 
TST 
BEQ 
BITB 
BNE 
BIC 
BIS 
MOV 
BIT 
BEQ 
JSR 
MSGN 
BR 
BIT 
BNE 



1$: 

RESTRT: 
RSTRT1 : 



next: 



1$: 



<RKAA >, 1 77400,220, 5, 0,0, 512. , 5 , BUF IN , 256 . ,1024. 



#256 . , WDTO 


; WORDS TO MEM 


#1 024. , WD FR 


; WORDS FROM MEM 


#3 , INTR 


; # OF INTERRUPTS/ I TERAT I ON 


SIDE 


; CLEAR FLAGS AND SIDE INDICATOR 


DLTCNT 


; CLEAR DATA LATE EROR COUNTER 


DV I D1 , DVI CE 


; GET DRIVE INDICATOR 


DV ICE , DRIVE 


; ALSO SAVE IT IN DRIVE 


#-3 , BLK1 


; INITIALIZE BLOCK COUNTER 


DRYVE 


; ZERO UNIT NUMBER 


#1 60000 , DRVSFT 


; INITIALIZE THE SHIFTED DRIVE # 


#BIT1 ,@#41 


; IS RK UNIT THE LOAD MEDIUM ? 


1 $ 


; NO, CONTINUE 


#BITQ , OVICE 


; YES, AND IS DRIVE CHOSEN ? 


1 $ 


• NO, CONTINUE 


PC , DROP 


; YES, GO DROP IT 


#-1 , DRYVE 


; INITIALIZE DRIVE COUNTER 


PC , SETUP 


; GENERATE REGISTER ADDRESSES 


PC , REZET 


; INITIALIZE RK REGS. AND ALL DRIVES 


DVICE 


; DROP THE MODULE ? 


FIN I 


; YES 


RSTRT1 


;+ / THIS IS 


PASCNT 


;+ / SUPPORT 


RSTRT1 


;+ / FOR 


START 


;+ / DT03 




;+/ BUS SWITCH 


RBUFVA 




RBUFSZ , WCNT2 


; SAVE READ BUFFER SIZE 


WCNT2 


; GET THE 2'S COMPLEMENT 


PC , BLOCK 


; GET NEXT BLOCK NUMBER 


WBUFSZ,WCNT1 


; SAVE WRITE BUFFER SIZE 


WCNT1 


; GET THE 2'S COMPLEMENT 


BLK1 , RO 


; LOAD BLOCK # FOR CONVRT 


PC , CONVRT 


; GENERATE DISK ADR. FROM BLOCK # 


PC , DRVADR 


; GET A DRIVE ADDRESS 


DV ICE 


; ANY DRIVES LEFT ? 


FI NI 


; NO, GO DROP THE MODULE 


#B I T3 , FLAG 


; ALL DRIVES DONE ? 


STRT 


; YES, GO GET ANOTHER BLOCK 


#1 60000, DSKADR 


; CLEAR DRIVE ADDRESS 


DRVSFT , DSKADR 


; LOAD DRIVE ADDRESS 


DSKADR ,@RKDA 


; LOAD DISK ADDRESS 


#BIT5,@RKDS 


; WRITE PROTECTED ? 


1$ 


; NO, CONTINUE 


PC , DROP 


; YES, DROP THE DRIVE 


DRP 




NEXT 


; GO ON TO NEXT DRIVE 


#BIT6,@RKDS 


; DRIVE READY ? 


2$ 


; YES, CONTINUE 
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2$: 



JSR PC , NOTRDY 

BR ST RT 

CLR TRY1 

CLRB TRY3 
. PAGE 



NO, WAIT FOR READY 
TRY AGAIN 

ZERO RETRY COUNTERS 



GO: 



GOA: 
GOB: 



JSR 
BR 

BITB 

BEQ 

BICB 

MOV 

BR 

JSR 

BR 

JSR 

BR 

CKDATA 



R5 .WRITE 

RETRY1 

#B I T2 , FLAG 

GOA 

#BIT2 , FLAG 
#-3,BLK1 
ST RT 

R5 , WRITCK 
RETRY2 
R5 , READ 
RETRY3 
RBUFPA 



WRITE SOME DATA 
IF ERRORS, TRY IT AGAIN 
DID THE DISK OVERFLOW ? 
NO, CONTINUE 

YES, CLEAR THE OVERFLOW FLAG 

RESET THE BLOCK NUMBER 

START OVER AT BEGINNING OF DISK 

WR I TE-CHECK THE DATA 

IF ERRORS, TRY AGAIN 

READ THE DATA WRITTEN 

IF ERRORS, TRY AGAIN 



PASS: ENDIT 

BR NEXT 

FINI: ENDMOD < DROP THE MODU LE> 



RETRY1 : 


INCB 


TRY1 


; COUNT THE RETRYS 




CMPB 


#3 , TRY1 


; LIMIT EXCEEDED ? 




BNE 


GO 


; NO , GO TRY IT AGAIN 




MSGN 


EXCED1. 






BR 


NEXTA 


; GO ON TO NEXT DRIVE 


RETRY2: 


INCB 


TRY2 


; COUNT RETRYS 




CMPB 


#3 , TRY2 


; LIMIT EXCEEDED ? 




BNE 


GOA 


; NO, TRY AGAIN 




MSGN 


EXCED2 






BR 


NEXTA 


; GO ON TO NEXT DRIVE 


RETRY3: 


INCB 


TRY3 


; COUNT RETRYS 




CMPB 


#3 , TRY3 


; LIMIT EXCEEDED ? 




BNE 


GOB 


; NO, GO TRY AGAIN 




MSGN 


EXCED3 




NEXTA: 


BIT 


#BIT0,SR1 


; DROP THE DRIVE ? 




BEQ 


1$ 


; NO, SKIP TO NEXT DRIVE 




JSR 


PC ,DROP 


; YES, DROP OFFENDING DRIVE 




MSGN 


DRP 




1$: 


JMP 


NEXT 


; GO ON TO NEXT DRIVE 
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RK1 1 DISK DRIVERS 



WRITE: 


MOV 


#503 , FUNC 


LOAD WRITE FUNCTION 




MOV 


WCNT1 ,@RKWC 


LOAD WORD COUNT 




MOV 


WBUFPA ,@>RKBA 


LOAD BUFFER ADDRESS 




MOV 


WBU FEA , XMEM 


LOAD EXTENDED MEMORY BITS 




BR 


GO GO 


CONTINUE 


WRITCK: 


MOV 


#507 , FUNC 


LOAD WRITE-CHECK FUNCTION 




MOV 


WCNT1 ,@RKWC 


LOAD WORD COUNT 




MOV 


WBUFPA ,@RKBA 


LOAD BUFFER ADDRESS 




MOV 


WBU FEA , XMEM 


LOAD EXTENDED MEMORY BITS 




BR 


GOGO 


CONTINUE 


READ: 


MOV 


#505, FUNC 


LOAD READ FUNCTION 




MOV 


WCNT2 ,@RKWC 


LOAD WORD COUNT 




MOV 


RBUFPA ,@RKBA 


LOAD BUFFER ADDRESS 




MOV 


RBUFEA ,XMEM 


LOAD EXTENDED MEMORY BITS 




BR 


GOGO 


CONT INUE 


CLEAR: 


MOV 


#1 ,@RKCS 


ISSUE A CONTROL RESET 




JSR 


PC , WAIT1 


GO WAIT FOR CONTROLLER READY 




MOV 


DRVSFT ,@RKDA 


RELOAD THE DRIVE ADDRESS 




BIT 


#B IT6 ,@RKDS 


DRIVE READY ? 




BNE 


2$ 


YES, CONTINUE 




RTS 


R5 


NO, ABORT DRIVE RESET 


2$: 


MOV 


#1 5,@RKCS 


ISSUE A DRIVE RESET 




JSR 


PC , WAIT 


GIVE IT TIME TO COMPLETE 




MOV 


#1 ,@RKCS 


ISSUE ANOTHER CONTROLLER RESET 




JSR 


PC , WAIT1 


WAIT FOR CONTROLLER READY 




RTS 


R5 


RETURN 


GOGQ : 


MOV 


#NTRUPT f ^VECTOR 


SET INTERUPT ENTRY POINTER 




MOV 


DS KADR , @RKDA 


LOAD THE DISK ADDRESS 




BIS 


XMEM, FUNC 


LOAD EXTENDED MEMORY BITS 




MOV 


FUNC ,@RKCS 


EXECUTE THE FUNCTION 




EXIT 






NTRUPT: 


PIRQ 


1$ 




1$: 


JSR 


R5 , ERRORS 


GO CHECK FOR ERRORS 




RTS 


R5 


ERRORS DETECTED, RETURN 




TST 


(R5) + 


NO ERRORS, SKIP RETRY 




RTS 


R5 


RETURN OK 


» 
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DROP: 


MOV 


#1 , R1 




MOV 


DRYVE, RO 




BEG 


2$ 


1$: 


ASL 


R1 




DEC 


RO 




BNE 


■ 1$ 


2$: 


BIC 


R1 ,DVICE 




MOV 


DRYVE, -(R6) 




OTOA 


DRYVE, ADR1 



INITIALIZE DROP PICKER 

GET THE DRIVE NUMBER 

IF DRIVE GO DROP IT 

NO, AIM AT THE NEXT DRIVE 

IS THIS THE ONE ? 

NO, LOOK AGAIN 

DROP THE DRIVE 

PUSH DRIVE # ONTO STACK 
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t 


RTS 


PC 


RETURN 


BLOCK: 


ADD 


#3 , BLK1 


STEP TO NEXT BLOCK 




CMP 


#4799. , BLK1 


BLOCK LIMIT REACHED ? 




BP L 


1$ 


NO, CONTINUE 




CLR 


BLK1 


YES, RESET BLOCK # 


1$: 


MOV 


BLK1 , BLK2 


READ WHERE WRITE 




RTS 


PC 


RETURN 


ROOM: 


MOV 


BLK1 t RO 


SAVE THE CURRENT BLOCK NUMBER 




MOV 


#2399. ,R1 


LOAD MAX. NUMBER OF BLOCK PER SIDE 




CLR 


R2 


2IRQ REG . 2- 




CMP 


#2399. , RO 


IS S1D£ DONE ? 




BGE 


1$ 


NO, CONTINUE 




SUB 


#2400. ,R0 


YES, NORMALIZE BLOCK # FOR SIDE 1 


1$: 


MOV 


#256. T BSIZ 


HI DENSITY BLOCK SIZE 




BIT 


#BIT1 1 ,@RKDS 


HI DENSITY DRIVE ? 




BNE 


. 2$ 


YES, CONTINUE 




ASR 


BSIZ 


NO, SET TO 128 — LO DENSITY 


2$: 


SUB 


RO , R1 


GET # OF BLOCKS LEFT ON DISK 


3$: 


ADD 


BSIZ.R2 


GET TOTAL NUMBER OF WORDS LEFT 




DEC 


R1 


ALL BLOCKS ADDED IN ? 




BGT 


3$ 


NO, KEEP ADDING 




TST 


R2 


IS # OF WORDS LEFT ON DISK NEG. ? 




BMI 


4$ 


YES 




TST 


WBUFSZ 


IS TRANSFER SIZE NEG. ? 




BMI 


7$ 


YES 




BR 


5$ 


NO, GO COMPARE 


A<£ • 
4* • 


TST 


l.iri I I PC 7 
W t) U P o C 


VC TD5MCFFB CT7C one 9 




BP L 


6$ 


YES 


5$: 


CMP 


R2 , WBUFSZ 


WAS THERE ENOUGH ROOM FOR THE TRANSFER ? 




BLT 


7$ 


NO, RETURN OK 


6$: 


TST 


(R5) + 


YES, MUST BE A REAL ERROR 




RTS 


R5 


RETURN, ERROR 


7$: 


BISB 


#BIT2, FLAG 


SET OVERFLOW FLAG 




RTS 


R5 


RETURN OK 


; 


. PAGE 






now a no • 

UK V ft UK • 


I NC 


nnvWF 
UK T V C 


milMT 21 DDT VF 




ADD 


#BIT13,DRVSFT 


DRIVE COUNT LINED UP WITH RKDA 




BICB 


#B I T3 , FLAG 


CLEAR END OF DRIVES FLAG 




CMP 


#8 . f DRYVE 


ALL DRIVES CHECKED ? 




BEQ 


1 $ 


YES, GO FLAG END OF DRIVES 




ASR 


DRIVE 


NO, IS NEXT DRIVE CHOSEN ? 




BCC 


DRVADR 


NO, GO TRY ANOTHER DRIVE 




RTS 


PC 


RETURN 


1$: 


BISB 


#BIT3, FLAG 


SET END OF DRIVES FLAG 




MOV 


#-1 , DRYVE 


RESET DRIVE COUNTER 
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MOV #1 60000, DRVSFT 

MOV DVICE, DRIVE 

RTS PC 



ZERO THE SHIFTED DRIVE # 
RESTORE CHOSEN DRIVES 
RETURN 



NOTRDY : 


MOV 


#-1 , DRYVE 




MOV 


#1 60000, DRVSFT 




MOV 


DVICE, DRIVE 


1$: 


JSR 


PC , DRVADR 




BITB 


#BIT3, FLAG 




BNE 


2$ 




MOV 


DRVSFT ,@RKDA 




BIT 


#BIT6,@RKDS 




BNE 


1$ 




JSR 


PC, WAIT 




BR 


1$ 


2$: 


RTS 


PC 



START WITH FIRST DRIVE 

RESET DRIVE SELECT 
GET A DRIVE ADDRESS 
ALL DRIVES CHECKED ? 
YES, RETURN 

NO, LOAD NEXT DRIVE ADDRESS 

IS THIS DRIVE READY ? 

YES, CONTINUE 

NO, WAIT FOR IT 

GO CHECK REST OF DRIVES 

RETURN 



ERSUB2: 


MOV 


-( R1 ) , ASB 




MOV 


R1 , SBADR 




MOV 


-( R2) , AWAS 




MOV 


R2 , WASADR 




TST 


(R1 ) + 




TST 


(R2) + 


ERSUB1 : 


MOV 


RKCS ,CSRA 




MOV 


@RKCS,ACSR 




RTS 


PC 




.PAGE 





LOAD THE DATA 

LOAD ADDRESS OF DATA WRITTEN 

LOAD THE DATA 

LOAD ADDRESS OF DATA READ 

RESET REG. 1 

RESET REG. 2 

LOAD ADR. OF CURRENT CSR 
LOAD CONTENTS OF CURRENT CSR 
RETURN 



WAIT: 


MOV 


#77777, CLK 


SET THE TIMER 


1$: 


BREAK 








BIT 


#BIT6,@RKDS 


DRIVE READY ? 




BNE 


2$ 


YES, RETURN 




DEC 


CLK 


NO, . WAIT SOME MORE ? 




BNE 


1$ 


YES, WAIT 




JSR 


PC , DROP 


TIME-OUT, DROP THE DRIVE 




MSGN 


DRP 




2$: 


RTS 


PC 


RETURN 


ERRORS: 


JSR 


PC , ERSUB1 


LOAD ERROR INFORMATION 




BIT 


#BIT14,@RKCS 


HARD ERROR ? 




BNE 


1 $ 


YES, GO REPORT 




BIT 


#3 ,@RKER 


SOFT ERROR ? 




BNE 


3$ 


YES, GO REPORT 




TST 


(R5) + 


NO, SKIP RETRY 




RTS 


R5 


RETURN OK 


1$: 


BIT 


#BIT14,@RKER 


DISK OVERFLOW ? 



APPENDIX C 



Page 72 





BEQ 


7$ 


NO, CONTINUE 




JSR 


R5 , ROOM 


YES , IS IT A REAL ERROR 




BR 


5$ 


NO, CONTINUE 


7$: 


BIT 


#B I T9 , (PRKER 


DATA LATE ERROR? 




BEQ 


2$ 


NO 




INC 


DLTCNT 


INCREMENT ERROR COUNTER 




BIT 


#BIT2,SR1 


TYPE OUT ERROR? 




BNE 


6$ 


NO 




MSGN 


DLTERR 




2$: 


MSGN 


HARD 






CLR 


ERRTYP 






HRDER 


TABLE 




6$: 


JSR 


R5, CLEAR 


GO CLEAR OUT ERRORS 




BR 


4$ 


RETURN 


3$: 


MSGN 


SOFT 






MOV 


#1 , ERRTYP 


DATA ERROR 




SOFER 


TABLE 




4$: 


RTS 


R5 


RETURN, ERRORS 


5$: 


JSR 


R5 , CLEAR 


CLEAR OUT ERRORS . 




TST 


(R5) + 


SKIP RETRY 




RTS 


R5 


RETURN OK 


t 


. PAGE 







SETUP: 



2$ 



MOV 


ADDR , RO 


; GET DEVICE ADDRESS 


MOV 


RO , RKDS 


; GENERATE CONTROLLER REGS 


TST 


(RO) + 




MOV 


RO , RKER 




TST 


( RO J + 




MOV 


RO , RKCS 




TST 


(RO) + 




MOV 


RO , RKWC 




TST 


(RO) + 




MOV 


RO , RKBA 




TST 


(RO) + 




MOV 


RO , RKDA 




TST 


(RO) + 




MOV 


RO , RKMR 




TST 


(RO) + 




MOV 


RO , RKDB 




MOV 


VECTOR, RO 


; GET THE VECTOR ADDRESS 


MOV 


0STRT, (RO)+ 


; SET POINTER JUST IN CASE 


MOVB 


BR1 , (RO) 


; SET PRIORITY 


RTS 


PC 


; RETURN 



ADDRESSES 



CONVRT 



CLR 

CLRB 

MOV 

MOV 

CMP 



R1 

SIDE 

#-12. ,R3 
#1 1 . ,R4 
#2399. ,R0 



ZERO REG. 1 

ZERO THE SIDE INDICATOR 

LOAD REG . 3 

LOAD REG. 4 

IS BLOCK ON SIDE ? 
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BGE 


1$ 


YES, CONTINUE 




BISB 


#BIT4 , SIDE 


NO, FLIP TO SIDE 1 




ADD 


#-2400. ,R0 


NORMALIZE BLOCK # FOR SIDE 1 


1$: 


CMP 


R4 , RO 


FIND THE RIGHT CYLINDER ? 




BGE 


2$ 


YES, CONTINUE 




ADD 


R3 , RO 


NO, SUBTRACT 12 SECTORS (1 CYLINDER) 




INC 


R1 


KEEP TRACK OF CYLINDER ADDRESS 




BR 


1$ 


GO TRY AGAIN 


2$ : 


MOV 


RO , DSKADR 


LOAD THE SECTOR ADDRESS 




BISB 


SIDE, DSKADR 


LOAD THE SIDE ADDRESS 




MOV 


#5 ,R2 


SET UP FOR SHIFT 


3$: 


ASL 


R1 


LINE UP CYL. ADR . WITH DSKADR 




DEC 


R2 


DONE ? 




BGT 


3$ 


NO, GO SHIFT AGAIN 




BIS 


R1 , DSKADR 


YES, LOAD THE CYLINDER ADDRESS 




RTS 


PC 


RETURN 




. PAGE 






REZET: 


MOV 


#1 ,@RKCS 


EXECUTE CONTROLLER RESET 




JSR 


PC , WAIT1 


GO WAIT FOR CONTROLLER READY 




JSR 


PC , NOTRDY 


MAKE SURE ALL CHOSEN DRIVES ARE READY 


1$: 


JSR 


PC , DRVADR 


GET A DRIVE ADDRESS 




BITS 


#B I T3 , FLAG 


ALL DRIVES DONE ? 




BNE 


2$ 


YES, RETURN 




JSR 


R5 .CLEAR 


ISSUE DRIVE RESET AND CONTROLLER CLEAR 




BR 


1$ 


KEEP GOING 


2$: 

; 


RTS 


PC 


RETURN 


WAIT1 : 


MOV 


#77777 ,CLK 


SET THE TIMER 


1$: 


TSTB 


@RKCS 


CONTROLLER READY ? 




BMI 


2$ 


YES, CONTINUE 




BREAK 








DEC 


CLK 


WAIT SOME MORE ? 




BNE 


1$ 


YES 




MOV 


#3 , ERRTYP 


CONTROLLER NOT READY 




HRDER 


TABLE < CONTROLLER NOT READY> 




JMP 


FINI 


GO DROP THE MODULE 


2$: 

; 


RTS 


PC 


READY, RETURN 


DLTCNT: 









FUNC: 









XMEM: 









DSKADR : 









DVICE: 









DRIVE: 









DRYVE: 









DRVSFT : 









BLK1 : 









BLK2: 









BSIZ! 









TBUF: 









WCNT1 : 
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WCNT2: 







BUFLEN: 


256. 




BUFIN: 


. BLKW 


2 


CLK: 







TABLE: 






RKDS : 







RKER : 







RKCS: 







RKWC: 







RKBA: 







RKDA: 







RKMR : 







RKDB: 









1 77777 






. PAGE 




MES1 : 


. ASCIZ 




MES2: 


. ASCIZ 


• 


ME34: 


.ASCIZ 




MES5: 


.ASCIZ 




MES6: 


.ASCIZ 


« 


MES7: 


.ASCIZ 


1 


MES8J 


. ASCIZ 




MES9 t 


.ASCIZ 




MES10: 


.ASCIZ 






. EVEN 




HARD: 


MES1 






177777 




SOFT: 


MES2 






1 77777 




EXCED1 : 


MES7 






MES6 






1 77777 




EXCED2: 


MES8 






MES6 






1 77777 




EXCED3: 


MES9 






MES6 






177777 




DRP: 


MES4 






NUMB 






MES5 






177777 




DLTERR: 


MES1 






1 77777 




ADR1 : 


. BLKB 


5 


NUMB: 


• BYTE 







. WORD 





SIDE: 


. BYTE 





FLAG: 


. BYTE 







• EVEN 




TRY1 : 


. BYTE 


a 


TRY2 : 


. BYTE 





TRY3: 


.BYTE 







. EVEN 





256. 



HARD ERROR 1 
SOFT ERROR 1 
DRIVE ' 
DROPPED%' 
RETRY EXCEEDED% 1 
WRITE' 

WRITE-CHECK' 
READ' 
DATA LATE ERROR% 1 
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APPENDIX D 



TABLE OF ERROR CODES 



ERROR TYPE 

Not Defined 

1 Data Error 

2 Data Late 

3 Controller not ready 

4 Block not found 

5 B1 ock mi ssed 

6 Device off-line, non- 
existent or not ready 

7 Selection ERROR 

10 Non-existent memory 

11 Illegal interrupt occurred 
or "Done" did not set 

12 Premature end of file 
encountered 

13 Rewind error (rewind took 
too long) 

14 # of interrupts incorrect 

15 Incorrect vector address 

16 "Busy" won't clear in time 

17 Unknown receiver error 

20 Unknown transmitter error 

21 Overrun error 

22 Framing error 

23 Device failed to interrupt 

24 Time-out-shift out error 
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ERROR 



APPENDIX D 
TYPE 



25 Bit stuck in Register on 
DID not change state in 
TIME 

26 A-D CONVERSION OUT OF SPEC. 

27 Interrupt enable error 

30 Unknown ERROR during data 
Transfer 

31 A/D RMS or peak noise 
exceeded limit 

32 NPR error 

33 Device not in maintenance 
mode 

34 Device will not initialze 

35 Buffer fill error 

36 Unable to execute a Read 
FUNCTION 

37 Unable to excute a write 
function 

40 Transfer read bit did not 
set 

41 Transmit data late error 

42 Active bit in register 
should be set - not cleared 

43 Cyclic redundancy check 
error detected 

44 Flag should not be set 

45 Floating point mathemaT i ca 1 
operation produced INCORRECT 
resu 1 ts 

46 Clock overflow failed to 
trigger A/D conversion 

47 Controller would not clear 

50 Data set line change 

51 BAD SEEK 



Page 77 



APPENDIX D Page 
ERROR TYPE 



52 MICRO CODE NOT LOADED 



